Т 


| ӨС” x 
| h ki 5 | ‘IT | ІК ү ( 


Р Z2 a y- 1 | n 
Ael д axle | "IC s ІСІІСІ 














/ 


14 
РА b T m )l 








2 A „Татты | 
ШТ 1 0 ns * IV ia Iud 


Єч - AL td p 
әри C I 
= € 














|» K. Srinivas 

С.А. J. Fletcher 
Computational 
 . Techniques for 
Fluid Dynamics 


{ Y Springer-Verlag 


WY 
EC 





Springer Series in Computational Physics 


Editors: J.-J. Chattot С.А.) Fletcher R. Glowinski W. Hillebrandt 
M. Holt P. Hut Н.В. Keller J. Killeen S. A. Orszag V. V. Rusanov 





Springer Series in Computational Physics 


Editors: J.-J. Chattot C.A.J. Fletcher R. Glowinski W. Hillebrandt 
M. Holt Р. Hut Н.В. Keller J. Killeen S. A. Orszag V. V. Rusanov 


A Computational Method in Plasma Physics 
Е Bauer, О. Betancourt, Р. Garabedian 


Implementation of Finite Element Methods for Navier-Stokes Equations 
F. Thomasset 


Finite-Difference Techniques for Vectorized Fluid Dynamics Calculations 
Edited by D. Book 


Unsteady Viscous Flows. Р. Р. Telionis 
Computational Methods for Fluid Flow. К. Peyret, T. D. Taylor 


Computational Methods in Bifurcation Theory and Dissipative Structures 
M. Kubicek, M. Marek 


Optimal Shape Design for Elliptic Systems. О. Pironneau 

The Method of Differential Approximation. Yu.I. Shokin 
Computational Galerkin Methods. С.А.) Fletcher 

Numerical Methods for Nonlinear Variational Problems 

R. Glowinski 

Numerical Methods in Fluid Dynamics. Second Edition 

M. Holt 

Computer Studies of Phase Transitions and Critical Phenomena 

O. G. Mouritsen 

Finite Element Methods in Linear Ideal Magnetohydrodynamics 

R. Gruber, J. Rappaz 

Numerical Simulation of Plasmas. Y.N. Dnestrovskii, D. P. Kostomarov 
Computational Methods for Kinetic Models of Magnetically Confined Plasmas 
J. Killeen, G. D. Kerbel, M. C. McCoy, A. A. Mirin 

Spectral Methods in Fluid Dynamics. Second Edition 

C. Canuto, M. Y. Hussaini, A. Quarteroni, T. A. Zang 

Methods for the Localization of Singularities in Numerical Solutions 
of Gas Dynamics Problems. Е. У. Vorozhtsov, М.М. Yanenko 
Classical Orthogonal Polynomials of a Discrete Variable 

А.Е Nikiforov, S. K. Suslov, У. B. Uvarov 

Flux Coordinates and Magnetic Field Structure: 

А Guide to a Fundamental Tool of Plasma Theory 

W. D. D'haeseleer, W. N. G. Hitchon, J. D. Callen, J. L. Shohet 

Monte Carlo Methods in Boundary Value Problems. К.К. Sabelfeld 
Computational Techniques for Fluid Dynamics 1. Second Edition 
Fundamental and General Techniques. C. A.J. Fletcher 
Computational Techniques for Fluid Dynamics 2. Second Edition 
Specific Techniques for Different Flow Categories. C. A.J. Fletcher 
Computational Techniques for Fluid Dynamics: A Solutions Manual 
K. Srinivas, C. A. J. Fletcher 


K. Srinivas С.А.) Fletcher 


Computational ‘Techniques 
for Fluid Dynamics 


A Solutions Manual 


With 53 Figures 


Springer-Verlag 

Berlin Heidelberg New York 
London Paris Tokyo 

Hong Kong Barcelona 
Budapest 


Dr. Karkenahalli Srinivas 


Department of Aeronautical Engineering 


The University of Sydney 
New South Wales 2006, Australia 


Editors 


J.-J. Chattot 


660 Vermont st. # С 
San Francisco, CA 94107, USA 


C.A.J. Fletcher 


Department of Mechanical Engineering 
The University of Sydney 
New South Wales 2006, Australia 


К. Glowinski 

Institut de Recherche d'Informatique 
et d'Automatique (INRIA) 

Domaine de Voluceau 
Rocquencourt, B. P. 105 

F-78150 Le Chesnay, France 


W. Hillebrandt 


Max-Planck-Institut für Astrophysik 
Karl-Schwarzschild-StraBe 1 


W-8046 Garching, Fed. Rep. of Germany 


M. Holt 


College of Engineering and 
Mechanical Engineering 
University of California 
Berkeley, CA 94720, USA 


Dr. Clive A. J. Fletcher 


Department of Mechanical Engineering 
The University of Sydney 
New South Wales 2006, Australia 


P. Hut 


The Institute for Advanced Study 
School of Natural Sciences 
Princeton, NJ 08540, USA 


Н.В. Keller 


Applied Mathematics 101-50 
Firestone Laboratory 

California Institute of Technology 
Pasadena, CA 91125, USA 


J. Killeen 


Lawrence Livermore Laboratory 
P.O. Box 808 
Livermore, CA 94551, USA 


S.A. Orszag 


Department of Mechanical and 
Aerospace Engineering 
Princeton University 
Princeton, NJ 08544, USA 


V. V. Rusanov 


M. V. Keldysh Institute 
of Applied Mathematics 
Miusskaya pl. 4 

125047 Moscow, Russia 


ISBN 3-540-54304-X Springer-Verlag Berlin Heidelberg New York 
ISBN 0-387-54304-Х Springer-Verlag New York Berlin Heidelberg 


This work is subject to copyright. АП rights are reserved, whether the whole or part of the material is con- 
cerned, specifically the rights of translation, reprinting, reuse of illustrations, recitation, broadcasting, 
reproduction on microfilm or in any other way, and storage in data banks. Duplication of this publication or 
parts thereof is permitted only under the provisions of the German Copyright Law of September 9, 1965, in 
its current version, and permission for use must always be obtained from Springer-Verlag. Violations are 


liable for prosecution under the German Copyright Law. 


© Springer-Verlag Berlin Heidelberg 1992 
Printed in the United States of America 


The use of general descriptive names, registered names, trademarks, etc. in this publication does not imply, 
even in the absence of a specific statement, that such names are exempt from the relevant protective laws and 


regulations and therefore free for general use. 


Typesetting: Camera ready by authors 


55/3140 - 543210 Printed on acid-free paper 


Preface 


This complementary text provides detailed solutions for the problems that 
appear in Chapters 2 to 18 of Computational Techniques for Fluid Dynamics 
(СТЕР), Second Edition. Consequently there is no Chapter 1 in this solutions 
manual. The solutions are indicated in enough detail for the serious reader to 
have little difficulty in completing any intermediate steps. 

Many of the problems require the reader to write а computer program to 
obtain the solution. Tabulated data, from computer output, are included where 
appropriate and coding enhancements to the programs provided in CTFD are 
indicated in the solutions. In some instances completely new programs have 
been written and the listing forms part of the solution. АП of the program 
modifications, new programs and input/output files are available on an IBM- 
compatible floppy direct from C.A.J. Fletcher. 

Many of the problems are substantial enough to be considered mini-projects 
and the discussion is aimed as much at encouraging the reader to explore ex- 
tensions and what-if scenarios leading to further development as at providing 
neatly packaged solutions. Indeed, in order to give the reader a better intro- 
duction to CFD reality, not all the problems do have a “happy ending”. Some 
suggested extensions fail; but the reasons for the failure are illuminating. 

Although the solutions manual 1s targeted at course instructors it 1s recog- 
nised that the manual will be of considerable direct value to the incipient com- 
putational fluid dynamicist. However, where the manual 1s being used without 
formal instruction it is strongly recommended that the relevant sections of 
CTFD be read very thoroughly, the problem be answered fully in writing and 
then, and only then, the solutions manual be consulted. 

In preparing this solutions manual we have been greatly assisted by Su- 
san Gonzales in preparing the text, by Dr. D.J. Àuld and Mr. À. Tan and 
many other colleagues and students in checking the solutions and by Professor 
W. Beiglbóck and his colleagues at Springer-Verlag. We are very grateful to all 
of them. Finally we acknowledge the substantial debt we owe to Usha Srini- 
vas, Gautham Srinivas and Mary Fletcher for their unwavering support and 
encouragement. 


Sydney, К. Srinivas 
November 1991 C.A.J. Fletcher 
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Partial Differential Equations 


21 а) We can interpret Laplace’s equation as (2.8) with А = 1, В = 0, 
С = 1, Н = 0. Therefore (2.8) is transformed into (2.17) with 


A-GTÓ 
He ITE 2b yy 
С' = n: + т, 


and H! involves 0ф/0# and 0/0n. 

The character of (2.17) is determined by (B’)*—4A'C". For the present example, 
(B')? — AA'C' = —A(Eny — Eya)? = —4J2. 

Since this is always negative Laplace’s equation is elliptic. 


b) The procedure is as above. For the wave equation, А = 1, B = 0, C = —1, 
Н = 0 in (2.8). Therefore іп (2.17), 


4-0-6 
B' = Zee ie um Deity 
С" = 12 = 7, 


and (B'? — 44'С' = 472. 


Since this is always positive the wave equation is hyperbolic. 


2.20 Let Ou/Ox = p and O?u/Oz? = Әр/дт = q. 
Therefore we replace ди/д# + udu/Oz + д?и[дтх? = 0 with 
Qu/Ot + up + Oq/Ox = 0 
Ou/Oz — p= 0 
Əp/Əz — q = 0. 
Applying the Fourier method (Sect. 2.1.5) gives 


1А{ и 2а ü 
i, -1 Of] |p] = o, 
O ik, 1 ó 
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or А + uA, — А} = 0. 


Clearly the same characteristic (symbolic) polynomial would have been ob- 
tained by substituting directly into the original governing equation. 


The solution is А; = —uA, — А. 


Since one real solution is obtained we deduce that the equation is parabolic. 
However since the solution is a wave without damping, (9.25) and (9.27), the 
governing equation is better described as being ‘hyperbolic’ in character. 


2.3 Using the technique described in Sect. 2.1.4, 
1 0 0 0 1 0 
А= и 01], В-|уү 0 0|, 
0 0 0 v 1 


and  det[A(dy/dzr) – В| = 0 gives 

—(dy/dzxY {udy/dx — v) — (udy/dz — v} = 0 
or dy/dx=v/u and +1. 
Thus two roots, associated with the pressure/continuity interaction, indicate 
elliptic behaviour and one root, associated with the convective operator, indi- 
cates hyperbolic behaviour. Thus the system is of mixed type with the elliptic 


behaviour having the dominant influence. Symbolic analysis (Sect. 2.1.5) pro- 
duces the same result. 


2.44 Interpreting 0?u/OxÓt = 0 as (2.1) implies A = 0, B = 1, C = 0. Since 
B? — 4AC > 0, this equation is hyperbolic. 


The system 
Qu/Ot —v = 0 
Әо/Әл = 0, 


can be combined as Ə (Əu/Ət — v) /дт = 0, 
or O^u/OzOt — Ov/Ox = 0, 
or д?и/дхді = 0, as before. 


Thus the system is hyperbolic. The system can also be written 


ди/0+ + aQu/Ox = v, (1) 
and 
BOv/Ot + Qv/Ox = 0, (2) 


where а, 8 = 0. 
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Equations (1) and (2) have characteristic directions, dz /dt = а ала 1/8 re- 
spectively. Since a, 6 = 0, the т and t axes are characteristics. 


2.5 We can interpret 
Q'u/Ot? — BO'u/Oz* + u = 0, (2.94) 


as a special case of (2.1) with A = 1, B = 0, C = – В. Since B^—4AC = 48 > 0 

if 8 is positive, (2.94) is hyperbolic. The characteristic directions are given by 
(dx/dt)}*-8=0 ог dr/dt = +83. 

If we set v = Ou/Ox апа ш = ди/ ді the equivalent system is obtained, 


Qu/Ot — ш = 0 
Qv/Ot — Qw/Ox = 0 (2.95) 
Qw/O0t — BOÓv/Ox + u = 0. 


Applying the procedure of Sect. 2.1.4 leads to 


dz/dt 0 0 
A(dz/dt)-B=| 0 а/ш 1 
0 B  dx/dt 


Consequently (2.29) gives dz/dt[(dz/dt)! — В] = 0 which has the solution, 


dx/dt = 0, +83. Since all roots are real the system, (2.95), is hyperbolic 
and the extra characteristic, dz /dt = 0, arises from the definition of ш, which 
uncouples from the other two equations in determining the character of the 
equation system. 


26 From p= kp” and а? = др/др = yp/p 
ар = {2р/(7 – 1)а} да and ар = {2pa/(y — 1)j da. 


Therefore the governing equations for one-dimensional, unsteady isentropic in- 
viscid compressible flow can be written, 


ди/д+ + udu/Ox + 2a/ (y — 1) да/дт = 0 
0a/0t + uOa/Ox + (y —1)a/2 Әи/Әл = 0. 
Applying the method of Sect. 2.1.4 


dz/di—u ?2а/(у-1) 


A(de/dt)~ Be | ig dafdt-u | ' 


and  det[A(dz/dt) - B] - 0 gives (dzr/dt—u)? =a’ 
or dz/dt=u +a, 


and since both characteristics are real, the system is hyperbolic. 
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2.7 а) We replace 0/0t — ад%ор/дл? = 0 
with адр/дх — 0o/Ot = 0 
Op/Ox = p. 
Using the procedure of Sect. 2.1.4, 
det[A(dt/dz) – B] = 0 gives a(dt/dz)? = 0. 
The single characteristic direction, dt/dz = 0, indicates that the equation is 


parabolic. 


b) By considering a surface y — constant the character of the governing 
equation is the same as in 2.7(a), i.e. it is parabolic. In a similar way on a 
surface z = constant the governing equation is parabolic in t. However on a 
surface t — constant the governing equation is elliptic. 


2.8 | We can interpret 

Ou/Ot + 2c0u/Ox — dO^u/Oz? = 0, 
as (2.1) with A = 0, B = 0 and C = —d, which indicates that B? — AAC = 0, 
1.е. the equation is parabolic. 


А separable solution is sought of the form 


и = exp(cz/d)f(t). 


This satisfies the initial condition if (0) = 1.0. Also а separable solution of the 
form g(x) ехр(-с 2/4) satisfies the boundary conditions if 4(0) = 1.0. Therefore 
the solution u = exp(cz/d) exp(—c?t/d) satisfies both the initial and boundary 
conditions. For this solution, 


ди/дї = —c^u/d, Әч/Әі = сија, дида? = c?uJd?. 


Substitution indicates that the governing equation is identically satisfied. Thus 
the required solution is 


u = exp(car/d) exp(—c?t/d). 


2.9 Applying the Fourier method (Sect. 2.1.5) leads to 


10, 20, uU 0 
шоу + voy + RO 0 0 i 


апа det[]=0 gives  ey[uc; + voy — 261 | =e 0; 


Considering only the principal part, о, = іс; /u Re. 


Thus the character is determined solely by the z-momentum equation and this 
is parabolic in the z direction if u is positive. Once the u solution is obtained 
at any downstream station, the continuity equation provides an ordinary dif- 
ferential equation for v. 


Partial Differential Equations 5 


Suitable boundary conditions are и = v = 0 at y = 0 and и = и, at y = ó. 
Suitable initial (upstream) conditions are и = и,(у) at z = ro. Given и,(у) the 
corresponding initial v profile, о,(у), is obtained by solving 


—ugQv/Oy + ъди„/ду — (1/ Ве)д?и,[ду? = 0. 


2.10 а) Applying the Fourier method, Sect. (2.1.5), directly to 


ди/дт + до/ду = 0 (2.96a) 
and 
Әи/ду — Ov/Ox = 0, (2.960) 


gives det [| A2 +А=0 о Az/Ay +, 
i.e. two imaginary roots occur indicating that the system is elliptic. 


b) If u = д02/дх, v= ðp/ðy, (2.96а) becomes 
A p/dx* + д?е/ду = 0, (1) 


and (2.96b) is satisfied identically. Interpreting (1) аз (2.1) indicates that А = 1, 
В = 0 and C = 1, so that B? — 4AC < 0 and the equation is elliptic. 


211 ПНи-т/(лг2--у2)) v-—vy/(z?-y?), 

then ди/дт = —(z? — y?)/(z? + ^Y; ди/ду = —2ay/(z^ + y")” 
and — Ov/Oz = —2zy/(z? + у);  0v/Oy = (1? — у*)/(х? + у?) 
So that, by direct substitution, (2.96a) and (2.96b) are satisfied. 


2.12 Applying the Fourier method, Sect. (2.1.5), gives the symbolic 
polynomial (a= 1/Re) 

[uàs + ivrAy + a(A2 + AZ) = 0. 
Retaining only the principal part gives 

a(A2 + №)? = 0, 


which indicates that each equation provides two imaginary roots and is sepa- 


rately elliptic. 

The choice of D is such that, with D, = д /дх etc., 
и = —(2/Re)(D,/D) and v=-—(2/Re)(D,/D), 
us = —(2/ Re) D, D) + 0.5Re u*, 
Ure = —(2/Re)(D,,./D) — u(D,,/D)- Re uuz, 

so that 


ии, — (1/Re)uzr = (2/Re’)(Drrz/D) + (u/Re)(Dzrz/D). (1) 
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In a similar way, 214 Tosolve Oy/Ot—a0?yp/Or*=0 for t>O0and0<2<1, 
vu, —(1/Re)uyy = (2/Re*)(Dryy/D)+(v/Re)(Dry/D)+0.5(vu, —uvy).(2) we assume a separation-of-variables solution, 
Combining (1) and (2) gives, p(t, х) = P(t) R(x), 


so that the governing equation is equivalent to 


uu, + vu, — (1/Re)(u,, + uyy) 2(2/ Re? D)|{(D,, + Dyy)z | 
— (D;/D)( Di, + Dyy)). (1/ P)OP/0t = (a/ R)O? R/Oz? = —a(kr)’. 


imi A general solution can be written as 
In a similar way, 


Uvr + vv, — (1/ Re)(vzz + Vyy) -(2/ Re? D)[( D, + Dyy)y o = YRT + У [4% ехр(—аЁ?т*?ї) + B; exp(ak* r7t)][C; sin(kzz) 
— (D,/DY(Di + D,,)]. k—1 
+ Dy cos(kzz )]. 
But Dss + Dyy = 0 for the particular choice of D. Therefore both equations | 
are satisfied. Satisfying the boundary conditions, o = 0 at z = 0, gives Dy = 0. Then the 
boundary condition, o = фр at x = 1 is also satisfied. For the solution to be 
2.13 To solve OT /Ox? + OT /dy? = 0 for 0 < z < 1, 0 < y < 1, bounded at large t, В, = 0. 
we assume а separation-of-variables solution, Att=0, 


T(z,y) = R(z)S(y), 
so that the governing equation is equivalent to 
—(1/R)0? R/Oz? = (1/8)? S/ðy? = c. 


Let c = k*x* so that the general solution, Т, is 


о = фрт + > A, sin(kzz) = 0, 


k=1 


and A, is obtained from 


O = рк h rsin(kmz) dz + А; h sin’(krx) dz, 


f = 2,4, sin(kmz) + By cos(kzz)][C+ ехр(Ету)-- Dy exp(—kry)]. or Az =(—1)* 2pr/(k7), во that the solution is 
k=1 
satisfying the boundary conditions, T(0,y) = T(1,y) = 0 gives В, = 0. p= PRT + Y on (-1)* exp(—ak*x’t) sin(krz)|/kr. 
Satisfying the boundary condition, Т(=,1) = 0 gives k=] 
. . _ 52 2 — 0. 
Cy = —Dy exp(—kr)/explkr). 2.15 Equation (2.75) is Qu/Ot — д°и/дх* = 0 


For fixed y we assume a solution of the form 
so и = (A/(4nt)!/?) exp [-(z — y)?/4t) . 
T = У Aksin(kmz)sinh[kez(y — 1)]. Thus 
m ðu/ðt = —0.5{4ru/(4rt) + (z — y)'u/(4t^)) 
Ж = {-0.5/t + (z — у) /(4)} u, 
T(z,0) = T, = — ` Aksin(kzz)sinh[kz] ди/дх = —{2(x — y)/4t]u , and 


= u/s? = —u/2t — ((z — yyf2)0u[0s = {-1/% + (z — yy! Jat?) u. 
so that Ар =(2T,/k=)|(—1)* — 1]/[sinh(k7)]. | 


Thus the general solution can be written 


But 


Clearly Ou/0t—0°u/Or? =0 аз required. 
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Preliminary Computational Techniques 


31 The second derivative, d^T' /dz?, is represented by the one-sided formula, 
4?Т /dx? = aT; + bT;+1 + cT;+2 + ат; +з 5 


Expanding the RHS terms as Taylor series about the point, 7, one gets, 
, > Ат? 
d"T[dz^ х (a + b + c + d)T' + (b + 2с + 3d)T, Az + (b + 4c + 94)—у—Тш 
Az? Az 
+ (b + 8с + 27d) ——T, +(b+16c+ 814) ST; +O(H). 


Equating the coefficients of the successive derivatives in the Taylor series ex- 
pansion until enough equations are available to solve for a, b, c and d, gives 
atbt+tc+d=0; 5--2с--34- 0; 5--4с--94 = 2/Az^ and b4+8c+27d = 0. 
Solving for a, b, c and d, we have 
а= 2] Ла? , b = —5/Axz2 , c = 4/Az2 and d = -1/Az*. 
The leading term in the truncation error is —(11/12) Az?T 4 . 


3.2 a) The given scheme 1s 


(0.5777! —2T7 + 1.577 * /At — a(l + d)(Tj-1 — 2T; + Т)" / Aa? 
+ а4(Т;-і = 27; + Tou) Ags =: DO, 


Considering each group separately and expanding each term as a Taylor series 
about T, one gets 


0.577! - 2T? +1.5Т"]/ ДЕ = 


At? Ав AU At (1) 
Т, + At Ти + 7g i8 + ds 16 + 19015 = 360 1° +O(ff), 
—a(1 + а) [754 == 27; + Tj] /Az2 = 
Ат? Az (2) 


с=т 1 а Toz ——T Блоа 
a(1+d)[Tr2 + 15 est + 266 1,6 + О(Н) 
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Ar? 


аа[Т;-3 = 21; + Tja n7 f As = аа|Т,, + 715 144 
(3) 
Ат Ал? At? 
n eg Te ДЕТ = ALT Ta, eo Taa +О(Н)). 


Substituting (1), (2) and (3) in the given equation, one gets, 


Ax? At? 
Ti «Ты + At Tu — —[—Tya — ad At T, + Tas 
(4) 
Ax Ал? adAt? 
— а--- — ad At——T — T H\=0. 
а 360 1,6 а 19 råt + 9 242 Г O( ) 0 


Using the relations aAt/Az? = s, and Ty = о77,4, Tere = «Ты, 
Та = а°Т, в, etc (from 4.12), 


the truncation error, Е, is found to be, 


E =sa Az’T 4 {1 — (1/12s) — а) 
+aAz* Т. (52/6 — 1/360 — ds/12 + 8/2) + О(Н). 


b) The scheme will be fourth-order accurate if 
1—(1/12s)-d=0 or d= 1- (1/12s). 
3.3 We consider the function, y = 51п(т2/2). At т = 0.5 the exact solution 


for dy/dz is 1.11072. Discretising dy/dz as indicated by (a), (b) and (c) the 


following results are obtained. 


Discretisation dy ах Absolute error 
(а) (gj — yj—1)/2At 1.106159  0.456202x 107? 
(b) (uji — у;)/Ат 1.019102 0.916186х10-! 
(с) (yj-2 — 8yj-1 + 8yj41 — уу+2)/12Ахт 1.110699 0.224740х1074 


Scheme (с) is seen to be the most accurate and (b) the least accurate. These 
results are broadly in agreement with Table 3.1. 


3.4 Running the computer program developed for Problem 3.3 with different 
mesh sizes (i.e. Ат) gives the following results (in the tables RRE — Rate of 
Reduction in Error). 
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(а) Discretisation: dy/dz & (yj41 — yj-1) /2Azr 


Ax Absolute error ERE 


0.1 0.45620 x107? = 

0.05 0.11416х107? = 4 
0.025 0.28546х1073 до 4 
0.0125 0.71368х10-4 ~ 4 


(b) Discretisation: dy/dx &(yj41 — y;)/Az 


Az Absolute error RRE 


0.1 0.91619x107! == 

0.05 0.44737x107! 2.05 
0.025 0.22091x107! 2.03 
0.0125 0.10975x107! 2.01 


(c) Discretisation: dy/dz ғ(у;-2- 8yj-1 + 8yj41 — У3+2) / Az 


Ax Absolute error RRE 


0.1 0.22474x107* = 

0.05 0.14077х107% zz 16 
0.025 0.88033x10 7 zz 16 
0.0125 0.55028х107% zz 16 


Discussion: 

1. Ав Ат is reduced, the error decreases for every scheme. 

2. Again, scheme (c) turns out to be the most accurate. 

3. Тһе leading terms in the truncation error for the three schemes are ( Table 3.3) 
(a) (Az?/6)T,3 , (Ы) (Ат/2)Т,: апа (c)-(4z*/30)1,5 . 


Hence, as the step size Az 1s reduced by a factor of 2, we expect the absolute 
error to decrease by the following factors for the three schemes considered: 


(а) 4, (b)2 апа (с) 16. 


The computed errors follow this pattern closely as Az is reduced. 
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3.5 We consider the function, y = віп(0.5тт). At 2 = 0.5, the exact value of 


d?y[dz? is -1.74472. Discretising the term d^y/dz^ with schemes (а) and (b), 
the following results are obtained. 


(а) Discretisation: — d?y/dz? ғ (yj-1 — 2у; + yj4i) / Ал? 





Ат d?y/dz? Absolute error RRE 





0.1 -1.74113 0.35845x107? = 
0.05 -1.74382 0.89667х1073 = 4 
0.025 -1.74450  0.22420x10^? д 
0.0125 -1.74469 0.56053х10-4 = 4 





(Ы) Discretisation: 


d?y/dx? = (—у;—2 + 16у;-1 - 30у; + 16у;+1 = Yj+2) /12 Az. 





Ал d*y/dc* Absolute error RRE 








0.1 -1.74470 0.11777х107* -— 

0.05 -1.74472 0.73793х10-6 zz 16 

0.025 -1.74472  0.46096x1077 cz 16 

0.0125  -1.74472 0.28813х10-% zz 16 
Discussion: 


1. Scheme (b) is seen to be more accurate. Further, for each scheme, the error 
decreases as Ag is reduced. 


2. The truncation error leading terms for the two schemes (Table 3.4) are 
(a) (Az?/12)T,, and (b) -(Az*/90)T,s . 


3. As discussed for Problem 3.4, the errors for schemes (a) and (b) should 
decrease by a factor of 4 and 16 respectively when the mesh size is halved. The 
results presented above do exhibit this behaviour. 


3.6 We start with the one-sided difference formula, 

ӘТ/дї = (T! — Tp)/At . (1) 
But Т) = сов [m(zj — qt^) and Т"! соз [m(zj — gt") — mq АҢ. 
Therefore (1) сап be written as 


AT /At = (cos[a — b] — cos[a + b] ) /At , (2) 
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where a = m(zj — qt") —mqAt/2 апа b= тд At/2. (3) 
This is equivalent to recognising that (1) is symmetric about (z;, t^ *!/2) , 
Equation (2) can be simplified to 

OT /Ot = (2/At) sin(b) sin(a) 


= (2/At) sin(0.5mqAt) inm [z — g(t + Aq2)] } ; 4) 
as required. 
For the three-term difference formula, 
OT/Ot = (L.STP™ — 2T? + 0.5777") /At 
= Loree? — T}*)/At — 0.5(7" — T? AL. (5) 
Using a similar strategy to that above, (5) can be written 
OT /Ot = (1.54 cos — b] — cos[a + b]) 
(6) 
- 0.5{ cos[e — b] — cos[c + i] )/ Ac ‚ 
where а and b are given by (3) and с= m(zj — qt") + mqAt/2 . 
Equation (6) can be simplified to 
OT[Ot = Ë sin(a)sin(b) — sin(c) sin() / AM 
=(1/At) sin(0.5mgAt) (s sin{ m [z — g(t + At/2)] | (7) 


- sinf [a — q(t — At/2)] J) 
as required. 


For At sufficiently small, sin(0.6mq)— 0.5mq At and cos(0.5mq At) — 1.0. 
Also we can write (4) as 


OT/Ot = (2/At) sin(0.5mgAt) sin(d — b) , (8) 
where d -—sin[m(z —qt)) and bis given by (3). 
Applying the above limiting process, (8) becomes 


OT /Ot = mq sn [m — gt)} — 0.5mq At cos{m(z — 1) (9) 
In a similar manner, (7) becomes 


OT/Ot = mq sin (rna ~ qt)} — mq At cos (m(x — i} . (10) 
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As At — 0, (9) and (10) coincide with the exact evaluation of OT /дх. 


3.7 For this problem, program DIFF is modified as follows 


1. The following lines are inserted after line 19, 
S5321.-5.*S/3. 
51112-11.ж5/12. 
S3=S/3. 
512=5/12. 
543-4.ж53 


хэ 


‚ After line 25, insert ЈМРМ1 = ЈМАР-1 


3. Lines 57 апа 58 are replaced by, 
DUM(2)=S53*TN(2) + S1112*TN(1) + O.5*S*TN(3) 
1 + S3*TN(4) - S12*TN(5) 


С 
DUM(JMAP)= S53*TN(JMAP) - S12*TN(JMAP-3) 
1 +S3*TN(JMAP-2) 40.5*S*TN(JMAP-1) + S1112*TN(JMAX) 
C 
DO 7 J = 3,JMPM1 
7 DUM(J) = (1.-2.5*S)*TN(J) -S12*(TN(J-2) *TN(J*2)) 
1 + S43*(TN(J-1)+TN(J+1)) 
Results: 


Running the modified program with Az = 0.1, the following rms solution errors 
are obtained. The corresponding errors for the ЕТС scheme (i.e. running DIFF 
as it is) are also given. 


8 rms error rms error for 


FTCS scheme 


0.3 0.8198 0.3618 
0.2 0.5362 0.0868 
0.1 0.2646 0.1814 


For the present scheme the rms error is always higher than that for the FTCS 
scheme. The reasons for this behaviour will be discussed in the next chapter. 


(see Problem 4.1). 


3.8 Program DIFF is to be modified so that, instead of the FTCS scheme, 
the following algorithm 18 used, 


(0.5777 — 2TT + 1.977 *1)/At - a (Tí, - 2T? + TT, 1)/ Az? = 0. 
The modifications to DIFF are effected as follows: 


1. An extra array TPR of the same dimension as TN is introduced. 
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2. After line 19, insert, 
$215=2.*(1.-S)/1.5 
$15=S/1.5 
$515=0.5/1.5 


3. After 49, insert, 
TPR(1) = 1 
TPR(JMAX) = 1 


4. After 51, insert 
IF(T.LT.0.01)TPR(1) = 0.5 
IF(T.LT.0.01)TPR(JMAX) = 0.5 


5. Lines 57-59 are replaced by, 

IF(T.LT.1.0E-05) THEN 
DO 7 J = 2,JMAP 
DUM(J) = (1.-2.*S)*TN(J) + S*(TN(J-1) + TN(J+1)) 

7 CONTINUE 
ELSE 
DO 17 J=2,JMAP 

17 DUM(J)=S215*TN (J) *S15* (TN (J-1)+TN(J+1))-S515*TPR(J) 
ENDIF 


6. After line 60, insert: TPR(J) = TN(J) 


Results: 


With Az = 0.1, the rms solution errors computed for various values of s are as 
follows 


8 rms error rms error for 


FTCS scheme 


0.5 2.462 0.9418 
03 1.095 0.3618 
01 0.1245 0.1814 


The accuracy of the present scheme is inferior to that of the FTCS scheme. 
The next chapter (Problem 4.2) provides an explanation for this. Аз expected, 
the rms error reduces as s is reduced. The leading term in the truncation error 


(see Problem 3.2) is 
saz T (1-—1/12s—d. 


For the present scheme d = 0 and the truncation error is directly proportional 
to s(s — 1/12). Hence, there is a reduction in rms error as s is reduced, as long 
as s > 1/24. 
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Theoretical Background 


4.1 Running the computer program developed for Problem 3.7, and DIFF 
the following solution errors are obtained when s = 0.3 and t = 5000 sec. In 
the table RRE denotes the Rate of Reduction of Error. 





Ат Scheme 3.7 FTCS Scheme 





rms error rms error 





0.2 1.634 0.59 
0.1 0.4325 (RRE м4) 0.187 (RRE ғ 3) 
0.05 0.1081 (RRE & 4) 0.048 (RRE = 4) 


Discussion: 


1. The leading term in the truncation error for the scheme considered in Prob- 
lem 3.7 is proportional to Ag? (see Problem 4.3). Hence, as with the FTCS 
scheme, the solution error decreases by a factor of 4 as the mesh size is halved. 


2. The accuracy of the present scheme is inferior to that of the FTCS scheme. 
This is despite the fact that the present scheme uses fourth-order accurate 
spatial differencing. The analysis carried out in Problem 4.3 shows that the time 
differencing employed for the present scheme produces a second-order error 
and this is the dominant contribution to the truncation error. This problem 
demonstrates that higher-order differencing for spatial derivatives alone 1s not 
sufficient to achieve a given accuracy. 


3. It may be noted that the starting conditions used can also produce errors 
and influence the solution accuracy. The programs DIFF and the one written 
for the present problem use discrete starting conditions (typically 100 or 50 on 
the boundaries and 0 for the interior points). Such a discontinuous distribution 
of starting values will produce errors that are still contributing to the final 
error. 


Starting the computations from t = 75 s, with the initial T values given by 
the exact solution for that time level, the following solution errors are obtained. 
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It may be noted that the errors are lower than when discontinuous starting 
conditions are employed. 


Ат = 0.2 0.1 0.05 


еггог 1.1113 0.2036 0.0655 


4.2 Running the computer program developed for Problem 3.8, the following 
solution errors are obtained. 


Ax Scheme 3.8 FTCS Scheme 


rms error rms error 


02 1.762 0.59 
0.1 0.3256 (RRE м4) 0.187 (ККЕ ~ 4) 
0.05 0.079 (ККЕ & 4) 0.048 (RRE = 4) 


Discussion: 


1. The leading term in the truncation error for the present scheme is propor- 
tional to Ат? (see Problem 3.2) thus explaining the rate of reduction of error 
of 4. 


2. The magnitude of the truncation error for the present scheme (see Problems 
3.8 and 4.4) is somewhat higher than that for the FTCS scheme, contributing 
to the larger magnitudes of the solution errors. 


43 Expanding every term of the scheme used in Problem 4.1 (see Problem 
3.7 for details) as a Taylor series about T? and rearranging the terms we have 
for interior points, and at j=2 and j=JMAX-1 respectively, 


At At? 1 

Ti — «Тш + uc — la + 2794 Тв + О(Н) =0, (1) 
At At? 1 

1,- «Туу + > 1“ + g Ез + 15244477, + O(H) = 0, (2) 
At At? 1 

Т, Т «Ту» + Ти + — 48 — Ar T,s + О(Н) = 0. (3) 


For each of the cases 1, 2 and 3, the truncation error Е( Ат, At) —^0as Az — 0 
and At — 0. 


Hence the scheme is consistent with the governing equation, 


ar ar 
ot TOS — 
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Order of truncation error: 


Replacing the time derivatives in (1), (2) and (3) with the spatial derivatives 
(see 4.12) the leading term in the truncation error is found to be 0. 5з Лт?а Ты 
{ог each of the schemes, thus explaining the rate of decrease of the solution 
error observed in Problem 4.1. 


Examining (1), (2) and (3) we find that the error caused by spatial discretisation 
is of third or fourth order. But it is the term 0. SAtTu that is the leading term 
of the truncation error. 


The improved accuracy of the FTCS scheme over that of the scheme considered 
in Problem 4.1 can be explained on the basis of the truncation error. These 
аге 0.5о Az? (s — 1/6) Та and 0.5sAz*aT,4 respectively. The magnitude of the 
truncation error is lower for the FTCS scheme for every value of s. Further, 
whereas the FTCS scheme achieves a fourth order accuracy when s — 1/6, the 
present scheme cannot achieve better than second order accuracy for non-zero 


values of s. 


44 It may be noted that the scheme considered in Problem 4.2 is the one 
studied in Problem 3.2 with d — 0. The leading term in the truncation error 
for this scheme is 


1 
за Az? Тл ( — =) . 


Again as Az — 0, E — 0 (see Problem 3.2). Hence the scheme is consistent 
with the governing equation. 


The leading term in the truncation error is proportional to Az’. Hence the 
observation (Problem 4.2) that the solution error decreases by a factor of 4 
as the mesh size is halved is in agreement with the order of truncation error. 
However we would expect to achieve higher accuracy if s = 1/12. 


4.5 Writing the ‘error equations’ for the scheme considered in Problem 4.1, 
the actual implementation of which is described in Problem 3.7, one gets for 
the interior points, and at j=2 and j=JMAX-1, 


n т 5 n 45 TL 4s n 5 n 
еті —(1-253)6 — 155-2 t 35-1 + бізі - 19542 » (1) 

n n , 118 n 
6; ths -( - š 6; + 19 S: —1 + © + a6 = m 3+3 > (2) 
п+1 __ 1 п. 118 n 5 п Ы п $ т 3 
G = (l-> ]S Tt тун tgs- + 35-2 T 155-0 (3) 
Let ё? = Gre 093. Substituting for Ё" п ЕРІ etc. іп the above equations and 


simplifying one gets for the interior points, and the boundary points j=2 and 
j=JMAX-1, 


18 СТЕР Solutions Manual: Chapter 4 
C=1-2584 Š — Seo 8 + С? сов@ (4) 
B | 6 3 3 
5 175 
G& = 1 — =s + — cos @ + = cos20 — — cos 30 
3 12 3 12 (5) 
5s 
J 98 5 9.5. 
«il 15 sind + = sin2 = sin 36 | 
and 
5 17s 
G= 1- 58+ > T соз + = cos 28 — =. 12 5 cos 36 " 
+1 SE sno- *п2#+ 5 12 in36] 


On running a computer program to calculate the absolute value of G for various 
values of s and 0, we find that the interior point scheme, (4), is stable for all 
s < 3/8. The boundary schemes, (5) and (6), are stable for all s € 0.75. Hence 
for the overall scheme the stability restriction is s < 3/8. 


Note: The stability conditions can be derived from (5) or (6) directly using 
complex algebra. It 1s not always necessary to use a computer. 


4.6 The ‘error equation’ for the scheme in Problem 4.2 is 
0.56271 —2 E? 41.5 £2! = s(62.1 — 26? + ы). (1) 


With the substitution that £7 = Се one gets 


1 | | 
zg 7 2t15GE = s(e e! — 2 + et?) 


or 3G2+ G(—4 —4scos0 + 45) -1— 0. (2) 
Solving (2) for G, we find that s € 1.0 for stability. 


47 Тһе stability restrictions on the schemes considered in Problems 4.1 and 
4.2 are found to be s € 3/8 and s < 1.0 respectively. Running the program with 
values of s close to these limits the following results are obtained for Az = 0.05, 
t — (5000 sec. 


Scheme in Problem 4.1 
$= 0.374 0.38 0.4 
error 0.0015 0.2573 0.83 х 1033 


Scheme in Problem 4.2 


s = 0.99 1.0 1.1 


еггог 0.0075 0.0078 .х10% 
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These findings confirm the stability limits established by the von Neumann 
method. 


4.8 Тһе scheme obtained by a forward time representation for OT'/Ot and 
aT /dx* = al; + bTj41 + cTj42 + dTj43 18 


p — Т; (1 + as) + bs Ti + cs T; + ds Tj (1) 


J 


Following the procedure outlined before, one gets 


G =(1 + as) + bs(cos 0 + i sin 0) + cs(cos 20 + 1 sin 20) 


D (2) 
+ ds(cos 30 ++ ѕіп 30). 


Substituting the values for a, b, c and d, we have 


G = (1-- 2s) + s(—5 cos 0 + 4 cos20 — cos 30) 


3 
+is(—5sin@+4 51120 — sin 30). (3) 


Working out the absolute value of С for various s and 0 values shows that the 
scheme is unstable for all s > 0. 


4.9 Тһе given scheme is 


n+l 
АТ, 


М. At 





-а É „Т +(1—-8)Lex T; | 20, (1) 


where М; = (6, 1- 26, 6) апа Ler І; = (Т;-1 - 27; + T;41)/Az?, 
Substituting for М, and L,, in (1), one gets 


1 
At 


— (8Т;-1 + (1 - 26)T; + rj)" | 


Ar en ; 4 (1 — 26)T; ӨТІ 


(2) 
n+1 
- E [о - 2T; + Tj-1] 


+ (1— B)[Ty41 - 27; + Tja] bao. 


Substituting for aAt/Az? (i.e. s) and simplifying, we have 
TPH(6 — 58) + TPT (1 — 26 +2 58) + TA (6 — 58) 
= Т" (6x s(1— 8)) + T? {1 — 26 – 2s(1 — 8)}+ (3) 


Let 64 —6— sB, 6 = 6 + s(1— B). 
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Then (3) simplifies to 


б, T +(1—2 6)T7 +8 TRH! = 


ó Tey (0-2 &)T? + T^, . 4) 


This is à tridiagonal system whose stability can be readily determined by the 
matrix method. Equation (4) is of the form A£"*! = BE” (see 4.25), where 


1- 26i бі 
é 1-26, 6 
A = 61 1 -- 264 б\ 
бі 1-26 
апа 
1 — 26 бо 
é 1-26) б, 
B = бо 1- 962 bo 
ó 1-29 


The scheme (4) is stable if 
Ав /Aa™ | <1. 
From (4.26) we have 


АА = 1 — 26; — 26, сов(7т/(7- 1)) and (Aa)max = 1 — 46; . 
Similarly, (À B )max = 1 — 462 . 


For stability, 





1- 46; 
1 — 46, 





<1. (5) 


This condition is met for all s € (0.5 — 26)/(1 — 28) . 


Remarks: 


It remains to check whether the scheme (1) is consistent with the governing 
equation. Expanding every term of (1) as a Taylor series about Ту" we have 


12 


Лі Ла" At At At? At? At? 
B Tene + уа] n = rra зрте ct 


46; Ax? Tr, + 15,4 лаз T4 + О(Н). 
1278 T 


1 
T, — «Тук = —6; Ене Ты + Az*T,2,+ l Ag! Та, 


FX 
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We see that the RHS — 0 as Az — 0 and At — 0. 


Hence the scheme is consistent with the governing equation. 


410 Тһе scheme considered in Problem 4.1 has a truncation error given by 
(see Problem 4.3). 





A 2 

a Т, + OI). (1) 
Let us carry out a Richardson extrapolation on two grids, Ата = 0.1 and 
Ax; = 0.05. 


From (4.45) we have a = —1/3, b = 4/3. 
The Richardson extrapolation is carried out in the following manner - 


1. The solution S, on a coarse grid Az, is first computed to the desired time 


level. 
2. The solution $, оп a fine grid Az, is similarly computed. 
3. The extrapolated solution is given by 


S = aS, + bS, .... (see 4.44). 


The rms solution errors computed are given in the following table. The rate of 
reduction of the error is indicated in brackets. 








s — 0.3 
Scheme\ Az = 0.2 0.1 0.05 0.025 
Problem 4.1 1.634  0.4325(z 4) 0.108(ғ24) 0.02731(4) 


Problem 4.1+ RE 1.394  0.1226(z: 11) 0.03293(: 4) 











s = 0.2 
Scheme\ Ar = 0.2 0.1 0.05 0.025 
Problem 4.1 1.282  0.3014(z 4) 0.0727 0.0182(2 4) 


Problem 4.1-- RE 0.903 0.0083( 100) 0.0003( 30) 











s — 0.1 
Scheme\ Az = 0.2 0.1 0.05 0.025 
Problem 4.1 0.8494 0.1579( 5)  0.03654(~ 4) — 0.01666(= 2) 


mul 
r 
м 
ы 


Problem 41+ RE 0.2583 0.00734(#35) — 0.00022(z: 34) 
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Remarks: 


The scheme without Richardson extrapolation gives a convergence rate of about 
4 as expected. With extrapolation the convergence rate increases to above 30 
(except when s = 0.3) indicating that now the error is proportional to Az‘ or 
some higher power of Az. Since Richardson extrapolation relies on cancellation 
of terms in the truncation error it is not surprising that a relatively fine grid is 
required to obtain consistent results from Richardson extrapolation. 

The code developed for Problem 3.7 is modified as follows to implement 
Richardson extrapolation. Two additional arrays TCORSE and T FIN E, each 
having the same dimension as TN, are introduced. The following lines are in- 
serted immediately after the READ statement. 


DO 111 NRICH=1,2 
IF(NRICH.EQ.1) JCORSE=JMAX 
IF(NRICH.EQ.2) JMAX-2*JMAX-1 


After the instruction, T = T + DELT, the following lines are introduced. 


N = N+ 1 
WRITE(6,10)T,(TD(J),J=1,JMAX) 
10 FORMAT(? T= ’,F5.0,’ TD=’,11F6.2) 
С 
IF(N .GE. NMAX)GOTO 133 
IF(T .LT. TMAX)GOTO 6 
С 


133 CONTINUE 
IF(NRICH.EQ.1) THEN 
WRITE(6,*)'NO OF COARSE TIME STEPS>? ,N 
DO 123 J=1,JMAX 
123 CORSE(J)=TD(J) 
ELSE 
DO 124 J-21,JMAX 
124 TFINE(J)2TD(J) 
ENDIF 
111 CONTINUE 
CALL RICHRD(TCORSE, TFINE,TD, JCORSE , JMAX) 
JMAX=JCORSE 


RICHRD is the subroutine developed to carry out the Richardson extrapolation 
and its listing is as follows. 


Subroutine RICHRD(TCORSE,TFINE,TD, JCORSE, МАХ). 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DIMENSION TCORSE(41) , TFINE(41) ,TD(41) , TEMP (41) 
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С1=-1./3. 
С2-4./3. 


21-0 

DO 10 J=1,JMAX,2 

JJ=JJ+1 

TEMP (JJ)=TFINE(J) 
10 CONTINUE 

DO 12 J=1,JCORSE 

TD(J)=C1*TCORSE(J) +C2*TEMP (J) 
12 CONTINUE 

RETURN 

END 


411 Carrying out Richardson extrapolation for scheme in Problem 4.2, the 
following rms solution errors are obtained. 
s — 0.3 
NN 
Scheme N Ar = 0.2 0.1 0.05 0.025 
NN  — 
Problem 4.2 1.762 0.3256(ғ 5) 0.07896(z 4) 0.01979(2 4) 
Problem 4.2+ RE 1.34 0.1185(z 11)  0.03257(z 4) 


s=0.2 
и 
Scheme\ Az = 0.2 0.1 0.05 0.025 


Problem 4.2 0.8102  0.1599(z 5 0.03753(2 4 0.00934(ғ- 4) 
Problem 4.2 + RE 0.9225 — 0.0060(z 153) 0.00027( 22) 
__ ————— o c Mit o 
s = 0.1 
220000000 М M 


Scheme N Az = 0.2 0.1 0.05 0.025 
Problem 4.2 0.3018 0.0865(ғ- 3.5)  0.02258(2 4) 0.00769(ғ4 3) 


Problem 4.2+RE 0.3141 0.0010(ғ 312) 0.00022( 4) 
MEN SE 


For a sufficiently fine grid Richardson extrapolation produces a more accurate 
solution. The improvement in accuracy is greater for smaller values of s. 

The modifications to the program developed for Problem 3.8 to implement 
Richardson interpolation closely follow those carried out for Problem 4.10. 
Again subroutine RICHRD is employed. 


4.12 The scheme used in Problem 4.10 employs the Richardson extrapolation 
with the scheme used in Problem 3.7 and 4.1. Discussion of this problem follows 
the changes to program DIFF for Problem 3.7 listed in Chapter 3. 
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The operation count is 
{23 FL+17 FX +9R+2L+(N, —4)(11 FX +10 FL+2R)}N, ; 


where N, is the number of grid points used and N, is the number of time steps 
taken. Ássuming (see Section 4.5.1), 


ІРІ, = 20 FX =10R=10L=0.1M , 
we have an operation count equal to 
{25 + (N, — 410.75) EN. FLeg . (1) 


With Richardson extrapolation the operation count is 


[ 25 + 10.75(Nz — ШЕ] FL. 
coarse (2) 
+ (25 --10.75( N, — 9) FL. 


fine 


А comparison of the FTCS and the present scheme can be made as follows. 
Using а Ат of 0.05, it 1s found that the FTCS and the present scheme achieve 
accuracies of 0.7173 x 107! and 0.7271 x 1071, the values of s being 0.37 and 
0.2 respectively. The number of time steps taken are 55 and 100. The operation 
counts are 


FTCS Scheme: [4 + (Nz — 2)5.8] М, = 6,281 FLeg Í see p. 94 of the text }. 
Present Scheme: 20, 715 FL. 


With Richardson extrapolation and Ат = 0.05 the ЕТС5 and the present 
scheme achieve accuracies of 0.248 x 10^? and 0.266 x 107? when the s values 
are 0.4 and 0.2 respectively. The number of time steps taken are 50 and 200 
on the coarse and the fine grids for the FTCS and 100 and 400 for the present 
scheme. The operation counts are: 


FTCS Scheme: 51,750 FL. 
Present Scheme : 200,000 ЕІ... 


Thus, we find that the present scheme is only about half as efficient as the ЕТС 
scheme, when Richardson extrapolation is applied to both schemes. However 
compared with the FTCS scheme without Richardson extrapolation, the addi- 
tion of Richardson extrapolation to either scheme brings about a substantial 
increase in computational efficiency. 
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4.43 The operation counts for the scheme, also used in Problems 3.8, 4.2, 
4.11, are, 


| м/с FX +3FL+9R+4L) 


+М(СПЕХ +11) 

+ (ТЕХ +5FL+1R) 

+ (№, – 1)(5ЕХ +6FL + В) 
+ М(2ЕХ + FL + R) 

+ NN, – 2)(3FL + FX + R) 


+ (Nc —1)(Nz – 2(4FX +6FL + ву}, : 


which simplifies to {11.55N; + (Nz — 2)(9.3 N, — 6.15)] FL, . 


(a) The present scheme with Az — 0.05 and s — 0.3 achieves an accuracy of 
0.789 x 107! compared with FTCS which achieves an accuracy of 0.7173 х 107! 
with s — 0.05 and s — 0.3. The number of time steps taken are 67 and 55 
respectively. The operation counts are: 


FTCS Scheme: 6,281 FLeq- 
Present scheme: z: 12, 500 F Leg. 


(b) With Richardson extrapolation the present scheme achieves an accuracy 
of 0.2738 x 107? as against the FTCS scheme which achieves an accuracy of 
0.248 x 1073 (see Problem 4.12 for other details). For this example Az = 0.05 
and s — 0.2. The number of time steps taken are 100 and 400 on the coarse 
and the fine grids respectively. The operation counts are: 


FTCS Scheme: 51,750 FLeg. 
Present scheme: 150,000 ЕР... 


Thus this scheme is not as efficient as the FTCS scheme with Richardson ex- 
trapolation but it is more efficient than the scheme considered in Problem 4.10. 


4.14 To judge which 1s the best scheme, computational efficiency, stability 
restrictions and the ease or otherwise of coding have to be considered. Stability 
restrictions have already been deduced in Problems 4.5 and 4.6 for the schemes 
introduced in Problems 4.1 and 4.2. For the FTCS scheme, the stability con- 
dition is s < 0.5 (see 4.37). 


lt remains to calculate the computational efficiencies. From Sections 4.5 and 
4.4.1, we find that the computational efficiency can be expressed as 


СРЕ =з Az? fae. 


For comparison, the behaviour of the schemes at s = 0.3, Ar = 0.05, a = 0.1x 
1074 and t = 5000 вес. is selected. Noting that the solution errors are 0.04797, 
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0.1081 and 0.07896 (see Problems 4.1 and 4.2), the computational efficiencies 
are given by a/.04797, a/0.1081, а/0.07896, where a = 0.3 x (0.05)? /0.1 x 1074 
and are 78.1, 34.6 and 47.49. 


Summarising the findings in a table, we have 


FTCS Scheme in Scheme in 

Problem 4.1 Problem 4.2 
Comp. 78.1 34.6 47.49 
efficiency 
Stability з < 2 s < š s < 1.0 
restriction 
Ease of easiest more difficult most difficult 
coding than FTCS of the three 


Evidently, based on the above criteria, the FTCS scheme is to be judged the 
‘best’ scheme. 
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Weighted Residual Methods 


5.1 Applying the WRM methods described in Sect. 5.1 produces the following 
coefficients in the approximate solution, 




















Coefficient ay аә 

Galerkin 2.912378 -1.690000 

Subdomain 2.577660 -1.408464 

Least-squares 2.558151 -1.412076 

The corresponding solutions are 

т Galerkin Subdomain Least- Exact 
squares 

0.2 0.50889 0.45384 0.44998 0.50000 

0.4 0.84770 0.76288 0.75598 0.86603 

0.6 0.98207 0.89500 0.88699 1.00000 

0.8 0.87763 0.81808 0.81200 0.86603 

1.0 0.50000 0.50000 0.50000 0.50000 

error 0.01205 0.06595 0.07107 





Clearly for this problem the Galerkin formulation is most accurate. However 
all three methods are reasonably accurate since only two coefficients are to be 
chosen. 


5.2 Application of the method of weighted residuals (Sect. 5.1) to the diffusion 
equation produces a system of ordinary differential equation, 


MA + ВА +C = 0, (1) 
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where an element of A is da j/dt and an element of M is 


1 
/ Wk ó; ат 
0 


and ф; = 2) — 7*1, 


The elements of B and C are 


1 d? à; 1 2 
bk; = - | W, 9; ат, с = -/ W, d Ө (2, 0)dz. 
0 0 





dx? k Пт? 


The form of Wk depends on the particular method (Sect. 5.1). For the Galerkin 
method, 


mk; =A/(9tk+1)—2/G+k+2)+1/G+k+3) 
and 6; = — [GV = 1 +h -1)-27°/G +E) 4G - D/G + Е+1)] 


Equation (1) is integrated in time using a Euler scheme with dt = 0.001. Typical 
solutions for N = 3 are shown in Table 1. The solution 6, is equivalent to 


Table 1 Numerical solutions at r = 0.5 for N = 3 





t Galerkin Subdomain Collocation Exact Approx 


method method method 0 0, 
0 1.5000 1.5000 1.5000 1.5000 1.5000 
0.04 1.1728 1.1723 1.1716 1.1738 1.1725 
0.08 0.9527 0.9513 0.9529 0.9540 0.9523 
0.12 0.8084 0.8023 0.8058 0.8059 0.8041 
0.16 0.7053 0.7018 0.7072 0.7062 0.7045 
0.20 0.6383 0.6341 0.6412 0.6389 0.6376 


Table 2 ||@ — 95||-ms variation with N at t = 0.20 


N Galerkin Subdomain Collocation 
method method method 


3 0.471 x 1073 0.319 x 107? 0.431 x 107? 
0.521 x 107? 0.484 x 1074 0.999 x 10-4 
7 0.396 x 1077 0.536 x107 0147 x 10-5 


— F  —-— ,n <. —.... .  . U U U MÀ 2-2. 


сл 


Ó except that the time dependent part of solution is advanced by the Euler 
scheme. Thus the rms errors in Table 2 are based on 0 — ду since this isolates 
the error caused by the weighted residual method (also see Sect. 5.6.1). It is 
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apparent that the accuracy of all methods increases rapidly with increasing N. 
The Galerkin method is most accurate and has the highest convergence rate. 


5.3 Substitution of the approximate solution into the governing equation 
produces the following residual (N = 3), 


Е- Fia + аә + Е аз + 1.0 


where Fi = —2{(1 — z?) + (b/a)*(1 — y*)} 
F, = —4{(1 — z*)*(1— 3y’) + (b/a)*(1  327)(1 — 2)2) 
F; = —6{(1—°)5(1—у?)(1—5у?)+(%/а)%(1—?)(1—5?)(1—у?)%}. 


Algebraic equations are obtained from 


1 1 
J J RW,dzdy = 0, 
—-14-1 


where the form of Wk depends on the particular method. The system of equa- 
tions can be written 


where the coefficients of M and С are determined by the method of weighted 
residuals and А is the vector of unknown coefficients. Substitution into the 
approximate solution leads to the rms errors shown in the table, 


Method N=1 N22 М№= 3 


Galerkin 0.00838 0.00231 0.00197 
Subdomain 0.04490 0.00812 0.00377 
Collocation 0.01828 0.00633 0.00386 


Linear 6x6 grid 11х11 grid 
FEM 0.00724 0.00157 


The traditional Galerkin method is more accurate than the subdomain or col- 
location methods. The linear finite element method on an 11 x 11 grid has 81 
nodal unknowns. The accuracy is not much greater than the accuracy of the 
traditional Galerkin method with three degrees of freedom. 


5.4 The rms errors (Arms = ||é — Ф|) and number of iterations to con- 
vergence (Ун) are compared for increasing r, in the following table. Increasing 
r, causes the region and the individual volumes to become distorted. This also 
causes a change in the character of the exact solution since the grid is con- 
structed by taking equal intervals of Ө. Thus for r, = 8.0 the solution changes 
very rapidly close to corner Y in Fig. 5.4. 
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r, = 1.0 r, = 4.0 rz = 8.0 
grid Aórms Ni Aórms Ni Ab rms М; 
6x6 0.1326 15 0.0725 15 0.1287 16 
11х11 0.0471 19 0.0600 19 0.0869 16 
21x21 0.0138 ol 0.0340 61 0.0558 61 


Generally grid refinement improves the accuracy but not to the same extent as 
for r, = 1.0. Also increasing r, usually leads to a reduction in accuracy due to 
increased grid distortion. The result for т; = 4.0, МАХ = KM AX = 6 is due 
to compensating changes in the exact solution as noted above. The iterative 
rate of convergence is relatively insensitive to increasing the value of r,. 


5.5 Тһе discretisation of Әф/Әл + 0¢/dy — S leads to the addition of the 
following terms to the left-hand side of (5.40) 


(1/a)[A ҙа S;¿k—0.5((Aypa — Azpa)ó;-i,k + (Дувс — Ахвс)Фу+1,к 


+(Дудв — AzAB)Ójk-1-- (Aycp — Атср)Ф) kil]. (1) 
where 
Aj, = 0.5[(тА — zp)(yB — ya) + (zp — =с)(ус – vp) 
+(2в — zA)(yp — ya) - (zc — ©р)(ус — ув). 
5;,к is evaluated from the following code after line 51 


C2K =CK*CK — SK ж SK 
S2K =2.* SK «СК 
SC(J,K)= (C2K — $2K)/R/R 


After line 121, А ;, and (Aypa — Атрд) etc. are evaluated from 


AR(J,K)=0.5(DXD+*DYA+DXB+*DYCO-DXA+*DYD- DXC * DY B) 
DYXAB(J, К) = DYA- DXA 
DYXBC(J, К) = DYB - DXB 
DYXCD(J, K) = DYC - рхо 
DYXDA(J, K) = DYD - DXD 


After line 142, (1) is added to the residual as 


DRES = DYXDA(J, K) x PHI(JM, К) + DY XBC(J, K)» x PHI(JP, K) 
+DYXAB(J, K) * PHI(J, KM)  DY XCD(J, K)» PHI(J, P) 
PHD = PHD + (AR(J, К) + SC(J, К) — 0.5*DRES)/ALPH 


The solution behaviour is indicated in the following table 
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а = 1.0, À = 1.5 а = 0.01, À = 0.2 
grid Adrms М; Aórms Ni 
6x6 0.1627 15 0.7794 62 
11х11 0.0556 20 0.2560 96 
21x21 0.0161 56 0.0752 202 





The equation being solved is a convection/diffusion equation (Sect. 9.3) in 
two dimensions. For « — 1 the convergence behaviour and residual levels are 
similar to that shown in Table 5.5. However for а = 0.01, the convective terms 
are dominant апа it is necessary to use a relaxation parameter, А = 0.2. Ав 
a result many more iterations are required to reach convergence. Although 
the solution becomes more accurate as the grid is refined, the accuracy 1s less 
than for the а = 1.0 case. This behaviour is typical of convection dominated 
equations. 


5.6 Evaluation of (5.33) produces an equation, equivalent to (5.34), but based 
on the volume D'C'C D with point (7,1) at the midpoint of D'C”. 


The following discretisations are assumed, 
O6/O2| 541 72,4 = (Фа Фук) (+в tk) 


06/02] 51 72,46 = (jk Ф)-1,к)/ (2j — Tj-1,k). 


The evaluation of дф/ду on DD’, D'C' and С.С are determined by the given 
boundary condition evaluated at k — 1. 


Consequently the following equation replaces (5.39) 








Az pic Дус'с Ахс'с 
- — — —(6j411 — 6j1) — + Qcp(6j» — Фл) 
rji Аты 7 ) re 1/24 ) ? 
A 1 Az ; 
+Pcp(%p = óc) + EDD" фл — $j-1,1) — — = 0, 
Ат;-1/2 Г;-1/2,1 


where Ат;-1/2 = {ji 71-1,1 and Az j41/2 = Е)41,1- Tj 
By substituting for óc and фр, the following algorithm 15 obtained in place of 
(5.41) on W X(k = 1), 


Фуу = |-025Pcp6;-4 + Qcpój» + 0.25Pcpó;+i,2 
Дурр Дусс! 
— * ee | — 925Р Ха қ 
t 25Рер + LP | ф; 1,1 + t ср + Ar; $j41, 


Ayc'c _ дурр! 
Arjtij2 Ат; 





Atpo _ Arco _ gree | J Q 


2 2 2 
Lj Г7+1/210 — "j-1/2,1 
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The evaluation of this equation can be carried out after line 148. 





Grid |ló — dllm, Мо. of iterations 
to convergence 





6x6 0.1525 15 
11Х11 0.0611 41 
21x21 0.0183 102 





As the above table indicates, the accuracies are slightly less than for corre- 
sponding Dirichlet boundary conditions (Table 5.5), and the errors are largest 
at k = 1. Also the number of iterations to reach convergence increases more 
rapidly with grid refinement than for Dirichlet boundary conditions. 


9.7 Тһе rms errors for linear and quadratic finite element interpolation are 
indicated in the following table. 


— —————————————————_. ___ 





Linear Quadratic 

interpolation interpolation 

Number of rms Number of rms 
elements, N error elements, N error 

2 0.0911 1 0.0819 

4 0.0242 2 0.00974 
8 0.00611 4 0.00115 
16 0.00153 8 0.000144 





These results may be compared with Table 5.6. It is clear that linear interpola- 
tion is converging like N^? and quadratic interpolation is converging like N 3. 
This behaviour is in agreement with theoretical results. 


5.8 Linear and quadratic interpolation is applied to 
y = (14+ sinzz)exp( —2z), 


on a geometrically growing grid (r, = 1.20). The results are summarised below. 
Each pair of cases has the same domain (0 € £ < гъа) and the same number of 
nodes (N;). For most cases the use of a non-uniform grid (r, = 1.2) allows more 
points where the solution is changing most rapidly (small z). This leads to a 
smaller maximum error (Emaz) and rms error (Ет). However the advantage, 
for the present function, diminishes as the grid is refined. 
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Linear interpolation 


Ar Ty Tmar №, Е,тз Emar TEmar 


0.20 1.20 1.29 5 0.0218 0.055 0.12 
0.2 1.00 1.29 Š 0.0360 0.091 0.16 
010 120 119 7 0.0120 0.024 1.04 
020 100 1.19 T 0.0143 0.039 0.10 
0.05 1.20 1.25 1 
0125 1.00 1.25 1 


0 0.0073 0.0158 1.12 
0 0.0069 0.0199 0.07 





Quadratic interpolation 








Ат rz Tmar №, Erms Emar TEmar 
0.20 1.20 1.29 5 0.0105 0.0226 0.42 
0.32 1.00 1.29 5 0.0201 0.0395 0.50 
010 120 119 7 0.0032 0.0080 0.35 
0.20 1.00 119 7 0.0043 0.0092 0.32 
005 1.20 1.56 11 0.0026 0.0055 111 
0.16 1.00 1.56 11 0.0019 0.0043 0.37 





5.9 Bilinear and biquadratic finite element interpolation are applied to 
y = {1 + sin(rz)) exp( -2z) ѕіп(ту). 


The effect of grid refinement on the rms error is indicated in the following table 











Bilinear Biquadratic 

interpolation interpolation 

Number of rms Number of rms 

elements,N error elements,N еггог 

4 0.1537 

16 0.0418 4 0.0137 

64 0.0106 16 0.00170 
64 0.000212 





It can be seen that bilinear interpolation is converging like Дх? and biquadratic 
interpolation like Az?. This behaviour and the accuracy is similar to the results 
shown in Table 5.7. 


5.10 Using (5.70) and Fig. 5.17 we obtain d£ = (2/Az)dz 


For element j: ф;-1 -0.5(1-6, Ф; = 0.5(1+ €) 
00; 1/06 = —0.5, 06;/0§ = 0.5 
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For element j+1: фу = 0.5(1— 6), ju = 0.5(1 +ê) 
06,/0€ = —0.5, 6541/0 = 0.5 

Thus Mz, = 3542 f^, 0.25(1 — £)(14- dé = 1/6 
М. = 0.5 | J", 0.25(1 + 6)246 + | 0.25(1 — 243 = 2/3 
М.з = 0.5 f^, 0.25(1 — €)(1 + &)аё ] = 1/6 
Гал = ду J` |(—0.5)0.5(1 + &)4ё = —0.5/Az 
Leo = д; |1, 0.25(1 + de + f (—0.25)(1 — а = 0 
Les = > f^, (0.5)0.5(1 + £)d£ = 0.5/Aa 
Lac – 25 | |(—0.5)0.54& = 1/Az2 


Leer = uh | f} 0:25dt + [1, 0.25 de] = —2/Дт? 


ЕРЕ — — f —0.25 d£ = 1/ Ат? . 


511 Equation (5.73), applied at m = J, gives the following for (5.77), 
Буу = b/Az; —llAz;-Az;/3 

for linear interpolation, апа 
бл = b/ Ат; — 7/(6.Ат;) + 4Az 7/15 , 


for quadratic interpolation. However the additional terms are combined with g; 
Similarly the term b2 1a is subtracted from g, and, for quadratic interpolation 


512a is subtracted from gz. The accuracy of the resulting solution is indicated 
in the table. 
eee 

Ar rms error rms error 


(linear) (quadratic) 
eee 
1/8 0.00414 0.000455 
1/12 0.00181 0.000088 
1/16 0.00101 0.000025 
1/20 0.00064 0.000012 





The results indicate accuracies comparable to those in Table 5.10 and that the 
theoretical convergence rates are being achieved. 


5.12 Application of a linear finite element analysis to dy/dx — у = 0 provides 
the following coefficients, equivalent to (5.79) 


М 


bjj-1 = —0.5 – Аг/6, bjj --242/3, bj = 0.5 — Аг/б. 


Weighted Residual Methods 35 
Forj =J, | 5лу-і--0.5- Az/6, bjj = -Ах/3 + 0.5. 
For quadratic interpolation and Galerkin corner nodes, 
5-2 = 1/6 + Ат/15, bj 5-1 = —(2/3 + 242/15), b;; = —8Az/15 
Ь;у+1 = 2/3 — 242/18, b;;+2 = —1/6 + Ат/15. 
For j = J, bj; -44Ат/15--0.5Ат. 
For quadratic interpolation and midside Galerkin nodes, 
b; ;-1 = —(2/3 + 2Ax/15), 6); = –164х/15, 8; = 2/3 – 242/15. 


For equation formed at ј = 2 and 3 (quadratic interpolation) adjustment is 
required for the boundary condition, y(0) = 1.0. The solution accuracy is indi- 
cated in the table 





NX linear FEM quadratic FEM 


rms error rms error 
5 0.0405 0.0161 
9 0.0100 0.00377 
21 0.00158 0.000579 
4] 0.00040 0.00014 


The traditional Galerkin method produces an rms error = 0.00046 with 3 de- 
grees of freedom (Table 5.3). Linear FEM requires about 40 degrees of freedom 
and quadratic FEM requires about 20 degrees of freedom to achieve comparable 
accuracy. However the FEM stiffness matrix is sparse so that it is more eco- 
nomical per degree of freedom than the traditional Galerkin method. This leads 
to a greater computational efficiency for problems with non-smooth solutions 
requiring a large number of degrees of freedom. 


5.13 Program DUCT provides a uniform grid in both directions. Conse- 
quently for small values of b/a and an equal number of grid points in both 
directions the grid aspect ratio becomes large and the grid is very coarse next 
to z = +a. Attempts to obtain a solution approximating a two-dimensional 
profile using an 11 x 11 grid produce rather poor solutions for b/a « 0.2. Typ- 
ical solution accuracies for decreasing b/a produced by a linear finite element 
method on an 11 x 11 grid are shown іп the following table. 
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meee 
b/a  rmsjp rmsp Wesi/ W 
error error 


100 0.491 0.00036 211 


0.50 0.382 0.00064 2.00 
0.20 0.169 0.00187 1.73 
0.10 0.087 0.00443 1.62 
0.05 0.053 0.00882 1.57 
0.02 0.041 0.01190 1.56 





The term, rms;p error, is an rms error for the solution across the narrow 
section, —b < y < b, at т = 0. The term, rmsəp error, 18 the rms error for 
the complete domain. With decreasing b/a the centre-line solution, at z = 0, is 
gradually approaching a one-dimensional parabolic profile. However for b/a = 
0.02, the solution close to z = +a is oscillatory which causes the large value of 
rms2p error. It is also clear that the limiting value of w,/; /w is greater than 
1.5. Thus to get more accurate results, for small b/a, a finer grid is required in 
the т direction. 


9.14 Evaluation of the Galerkin FEM leads to В W = 0 in place of (5.100), 
where bm, is given by (5.101) with b/a = 1.0. Equation (5.101) can be split 
into the product of integrals in the т and у directions as in Appendix A.2. 


For m centered at x = 0 only the two right-hand elements contribute. Thus 
Lyy and M, have the same evaluation as in the interior. L,x3 and M,3 have 
the same values as in the interior since they only receive contributions from 
the nght-hand elements. There are no contributions to Lrz2 and M. from 
the left-hand elements so the boundary values are half the interior values for a 
uniform mesh. 


lo modify DUCT to obtain numerical values it is necessary to: 


a) replace line 29 with DX = 1./ANX 
b) replace lines 42 & 45 with X = AJ*DX 


& Y = AK*DY 
c) replace line 47 with WD = COS(0.5*PI*X)*EXP(0.5*PI*Y ) 
d) replace line 63 with DO 12 J = 1, МХР 
e) after line 65 insert IF(J.EQ.1)JM = JP 
f) remove 1. from lines 70 & 74 
g) change one ANX-1 to ANX in lines 81 and 103 
h) replace line 92 with DO 18 J = 1, NXP 


Item e) is a convenient way to implement the homogeneous Neumann boundary 
condition at x=0 when the grid is uniform. This technique is discussed at the 
end of Sect. 8.4.2. The results (see table) indicate second-order convergence and 
a similar accuracy for both linear finite elements and a three-point centered 
difference scheme. 
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grid finite element finite difference 
rms error rms error 

6x6 0.00608 0.00592 

11x11 0.00136 0.00135 

21x21 0.00030 0.00027 


5.15 Тһе following terms appear in the discrete equation 


M, 69 (Lz m «1хх)Фф + М, е9 (L, - 81„,)Ф -- 0 А 
Бог the case а = 1.0, 8 = 1.0 the following changes аге needed to DUCT: 


a) replace line 29 with DX = 1./ANX 
b) after line 36 insert РАКА = 1./12./DX 
PARS = 1./12./DY 
c) replace line 47 with WD = EXP(X)*EXP(Y) 
d) after line 71 insert 
DUM = DUM - (PAR4+PAR5)*(WA(JP,KP )-WA(JM,KM)) 
DUM = DUM - (PAR4-PAR5)*(WA(JP,KM)-WA(JM,KP)) 
DUM = DUM - 4.*PAR4*(WA(JP,K) - WA(JM,K)) 
DUM = DUM - 4.*PARS*(WA(J,KP) - WA(J,KM)) 
e) after line 74 insert 
DUM = DUM + 0.5*(WA(JM,K) - WA(JP,K))/DX+0.5*(WA(J,KM)- 
WA(J,KP))/DY 


The resulting solutions demonstrate that both the centered difference three- 
point scheme and the linear finite element scheme are achieving comparable 
accuracy and second-order convergence, as indicated іп the table. 


grid finite element finite difference 
rms error rms error 

6x6 0.00100 0.00093 

11x11 0.00022 0.00021 

21x21 0.000037 0.000031 
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5.16 Discussion of the tabulated results is provided below. 


Approx. Solution, T Approx. Exact 
t J= 5 J = 7 Ј= 9 Solution, T, Solution, Т 
0.00 1.5000 1.5000 1.5000 1.5000 1.5000 
0.02 1.3383 1.3414 1.3399 1.3404 1.3408 
0.04 1.1911 1.1941 1.1926 1.1931 1.1943 
0.06 1.0669 1.0700 1.0685 1.0690 1.0707 
0.08 0.9647 0.9677 0.9662 0.9667 0.9686 
0.10 0.8807 0.8837 0.8823 0.8828 0.8846 
0.12 0.8118 0.8148 0.8134 0.8139 0.8157 
0.14 0.7553 0.7583 0.7569 0.7574 0.7592 
0.16 0.7090 0.7120 0.7106 0.7111 0.7128 
0.18 0.6710 0.6740 0.6726 0.6731 0.6746 
0.20 0.6399 0.6429 0.6415 0.6420 0.6434 


Application of the Galerkin spectral method produces ordinary differential 
equations, 


da, /dt + o(mm)*a,, + 32a/(mr)=0, m=1, 3, 5 etc. 
and ат = 0, m= 2, 4, 6 etc. 


Marching this equation in time using (5.130) and comparing the solution given 
by the equivalent of (5.123) with (5.131) and (5.132) gives the solutions shown 
in the table. It can be seen, that with increasing J, the approximate solution 
is gradually converging to the solution 75, as discussed in the text. 


5.17 А solution of the following form is assumed 


J 
T(z,t) 23— 22 + b, + У `[a; sin(j 27x) + bj cos(j 2zz)]. 


j=1 


In order to satisfy 0Т/ді---2 at т-0 and T=1 at x=1, 


J J—1 
we choose b; = — У; bj; and ау-- X a;(j/J). 
іі 


2-1 


The starting values of а; and b; are chosen to match the initial condition, 
T(z,o) = 3—2z —2z2 + 22%. This leads to a;(o) = 3/(jy)?, b;(o) = 1/(јт)2. 
Using the tau method the solutions for a;(t) and b;(t) are given by (5.146). The 
solution with J = 11 at t = 0.10 is used as an exact solution. The rms errors 


at t = 0.10 for J = 3, 4 and 5 imply convergence and a fairly high accuracy, as 
indicated in the table. 
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J rms error (NX=11) 





for t — 0.10 
з 0.00046 
4 0.00036 
5 0.00012 





It may be noted that for J = 11 the solution is already fairly close to the 
steady-state value at t = 0.10. 
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Steady Problems 


6.1 For this problem it is useful to consider the case where (6.9) are repeated 
ten times making an overall system of 30 equations. The enlarged system con- 
verges in the same number of iterations as the original problem since all blocks 
are independent but it produces a more realistic operation count for FACT and 
SOLVE. For a starting solution of T, — (0.80, 0.50, 0.10, 0.80 .....) the results 
are summarised 1n the table. 


Iterations Calls to Total 

р ѓо Conver- JACOB Орегайоп 
кепсе and FACT Count 

1 6 5 78600 

2 7 4 69090 

3 8 3 57510 

5 11 3 63720 

6 11 2 50070 

8 12 2 52140 

10 13 2 54210 


Subroutines JACOB and FACT are called on the first iteration and then every 
p iterations. The operation counts are based only on floating point operations 
and assume that all operations require the same execution time. The operation 
counts per iteration are 


RESID = 270, JACOB = 150, FACT = 13500, SOLVE = 1800. 


It is clear that there is an advantage in evaluating JACOB and FACT less 
often. Since FACT is ап N? process the benefit will increase with М, as long 
as JACOB is dense. For this example JACOB is tridiagonal, so for large N it 
would be better to replace FACT and SOLVE with BANFAC and BANSOL. 


6.2 For Ке = 1, 2, 5 and 10, and DT = 5000, the optimum w to obtain con- 
vergence is indicated in the following table, as well as the number of iterations, 


Nit 
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Re 1 2 5 10 10 10 10 


_————————————-——-———-—— 
DT 5000 5000 5000 5000 01 0.01 0.001 


For the large value, DT = 5000, NEWTBU is behaving like а conventional 
Newton's method. The optimum w = 0.26. Using a larger value of w causes 
a rapid increase in the number of iterations to convergence and eventually 
divergence. Smaller values of w cause the number of iterations to grow slowly. 
Тһе number of iterations to convergence reduces with increasing Re due to the 
more severe solution gradient and the concentration of large residuals in that 
area. 

Reducing DT increases the diagonal dominance and allows the iteration to 
remain stable with a larger value of w. Consequently the number of iterations 
to convergence is reduced. However reducing DT also causes a departure from 
the true Jacobian; eventually (small DT) the number of iterations begins to 


rise again. 


6.3 The best choice, wm, is obtained by assuming that Кт» is a quadratic 


function of w. Therefore Rim. і is evaluated for m = 1,3 where wm = w° — Aw, 
ш°,ш° + Aw. Неге o° = = Wop) and Aw is chosen empirically. For а quadratic 
function, 


(n+1) 
opt 


where ac= 0.5( RÜ), — RP /Aw 

and bc = (RU), - 2RO), + RO) )/Ao2 

The required coding is shown below and inserted after line 111 of NEWTBU. 
Tests are included to check that ал < ра < w3. BPS provides an asymmetric 


weighting which biases the value of wnt 1) to lower values. The choice BPS = 
0.65 usually produces a stable convergence pattern. 


= w° — ac/be 


С 
С QUADRATIC OM SEARCH 
С 
OML(1) = OM - DOM 
OML(2) = OM 
OML(3) = OM + DOM 
DO 204 L = 1,3 
DO 202 J = 2,NXP 
DO 201 K = 2,NYP 


42 СТЕР Solutions Manual: Chapter 6 


МВ = 2*(K-2) + 2*(NY-2)*(J-2) 
DU = - RD(MB+1) 
DV = - RD(MB+2) 
UL(K,J) = U(K,J) + DU*OML(L) 
VL(K,J) = V(K,J) + DV*OML(L) 
201 CONTINUE 
202 CONTINUE 


CALL RESBUCUL,VL,R) 


SUM = 0. 
DO 203 I = 1,N 
203 SUM = SUM + R(I)*R(I) 
RMSL(L) = DSQRT(SUM/AN) 
204 CONTINUE 


АС = 0.5*DMI*(RMSL(3)~-RMSL(1)) 
BC = DMS*(RMSL(1)-2.*RMSL(2)+RMSL(3)) 
IF(BC .GT. 1.0E-07)GOTO 206 
IF(AC .GT. 1.0E-07)0M = BPS*OML(1)*(1.0-BPS)*OML(2) 
ІҒ(АС .LT. -1.0E-07)0M = BPS*OML(2)*(1.0-BPS) *OML(3) 
GOTO 207 
206 OM = OML(2) - AC/BC 
IF(OM .LT. OML(1))0M 
IF(OM .GT. OML(3))0M 
207 CONTINUE 


BPS*OML(1)+(1.0-BPS) *OML(2) 
BPS*0ML(2)+(1.0-BPS) *OML (3) 


Typical results for Re = 10 and various values of DT are shown in the following 
table 


© DT 500 010 001 
/ Aw 002 002 005 
© BPS 0.70 060 0.60 


Ми 64 46 26 


The algorithm is converging in slightly more iterations than if a single empiri- 
cally chosen value of w is used (Problem 6.2), depending on the choice of wet. 
However the algorithm is quite robust particularly if combined with small val- 
ues of DT. The major overhead is the three additional evaluations of RESBU 
per iteration. 


6.4 
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The required coding for this problem is provided by Program TRIDA. 


It may be noted that VEX is the exact solution of the discrete problem. Not 
surprisingly this solution is reproduced in file TRIDA.OUT. 


Сэ 


C2 


С 


Ф! 


Program TRIDA 


USE BANFAC AND BANSOL TO SOLVE A TRIDIAGONAL SYSTEM 


DOUBLE PRECISION B(5,65),G(65),V(65) , VEX(65) 


OPEN (1, FILE-'TRIDA.DAT?) 

OPEN (6, FILE-' TRIDA.OUT?) 
READ(1,1)N,RCELL 

FORMAT(I5,F5.2) 

WRITE(6,2)N,RCELL 

FORMAT(? TRIDIAGONAL PROBLEM, N=’,I2,’ 


SET VEX 
CON = 5.0/3.0 


DO 3 J = 1,N 
VEX(J) = -0.0060834 + 0.00365*(CON) жж.) 


SET B AND G 
NL = N-2 

NLP = N-1 

ANL = NL 

DO 4 J = 1,NL 

B(1,J) = 0.0 

B(2,J) = -(1.0 + 0.5*RCELL) 
B(3,J) = 2.0 

B(4,J) = -(1.0 - 0.5*RCELL) 
B(5,J) = 0.0 

G(J) = 0. 

CONTINUE 

G(1) = - B(2,1)*VEX(1) 
B(2,1) = 0. 

G(NL) = - B(4,NL)*VEX(N) 


B(4,NL) = 0. C 
CALL BANFAC(B,NL,1) 


CALL BANSOL(G,V,B,NL,1) 


COMPUTE ERROR 


RCELL-?,F5.2) 
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SUM = 0. 
DO 5 J = 1,NL 
JA = J41 
DIF = V(J) - VEX(JA) 

5 SUM = SUM + DIF*DIF 
RMS = SQRT(SUM/ANL) 
WRITE(6,6) (V(J) , J=1,NL) 
WRITE(6,7) (VEX(J) , J=2,NLP) 
WRITE(6,8)N,RCELL, RMS 

6 FORMATO V=? ,11F7.3) 


7 FORMAT(? VX=’ ,11F7.3) 
8 FORMAT(? N=’,12,’ RCELL=’ ,E10.3,’ RMS=’ ,Ei0.3) 
STOP 
END 
TRIDA.OUT 
TRIDIAGONAL PROBLEM, М=11 — RCELL- 0.50 


V= 0.004 0.011 0.022 0.041 0.072 0.124 0.211 0.356 0.598 
VX= 0.004 0.011 0.022 0.041 0.072 0.124 0.211 0.356 0.598 
М-ші1 RCELL= 0.500Е-4-00 RMS= 0.998E-08 


6.5 Тһе following modifications, with an appropriate test on INT, аге re- 
quired to execute a pentadiagonal system in subroutines BANFAC and BAN- 
SOL. 


Modifications to Subroutine BANFAC 


С 
С TWO PASSES REQUIRED FOR A PENTADIAGONAL SYSTEM 
С 
6 DO 7 J = 2,NP 
JP = J+i 
B(1,JP) = B(1,JP)/B(2,J) 
B(2,JP) = B(2,JP) - B(1,JP)*B(3,J) 


B(3,JP) = B(3,JP) - B(1,JP)*B(4,J) 

IF(JP .GE. N)GOTO 7 

B(4,JP) = B(4,JP) - B(1,JP)*B(5,J) 
7 CONTINUE 

DO 8 J = 1,NP 

JP = J+i 

B(2,JP) = B(2,JP)/B(3,J) 

B(3,JP) = B(3,JP) - B(2,JP)*B(4,J) 

IF(JP .GE. N)GOTO 8 

B(4,JP) = B(4,JP) - B(2,JP)*B(5,J) 
8 CONTINUE 

RETURN 
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Modifications to Subroutine BANSOL 


C TWO PASSES REQUIRED FOR PENTADIAGONAL SYSTEM 
C 
8 NP = N-1 
DO 9 J = 2,NP 
JP = J*1 


9 R(JP) = R(JP) - B(1,JP) *R(J) 
DO 10 J = 1,NP 
JP = J41 
10 R(JP) = R(JP) - B(2,JP) *R(J) 
X(N) = R(N) /B(3,N) 
X(N-1) = (R(N-1) - B(4,N-1) *X(N)) /B(C3,N-1) 
DO 11 J = 2,NP 
JA = N-J 
X(JA) = (RCJA) - B(4,JA) *X(JA*1) - B(5,JA)*X(JA+2))/B(3,JA) 
CONTINUE 
RETURN 


1 


= 


For Reen = 1.0 and 11 grid points the solution is indicated in the following 
table. 


x 0.2 0.3 0.4 0.5 0.6 0.7 0.8 
у 0.000 0.001 0.003 0.007 0.020 0.052 0.138 


ver 0.000 0.001 0.002 0.007 0.018 0.050 0.135 


For x = 0, 0.1, 0.9 and 1.0, v is chosen to coincide with Ves. Тһе rms error for 
the above solution is 0.0016 and is dominated by the solution close to x = 1.0, 
at which v = Vez = 1.0. 


6.6 After discretisation of (6.104), the non-zero coefficients of a, b and c in 
(6.36) are 


Qi1,1 = Ах, б 1,2 = 1.0, Q1,2,] = 1.0, 12,2 = 0.25 Ar 
bii —2.0, bio. = —2.0 
Chi = — Az, Ci,1,2 = 1.0, Ci2,] = 1.0, Ci 2,2 = —0.25 Ат 


Since Dirichlet boundary conditions are required, values of 4(1) апа d(n-2) аге 
set from a,, €,.. and the boundary conditions. A listing of subroutine BLTRI 


is provided. A typical solution for n = 11 is shown below. Since T and 5 are 
smoothly varying the rms errors are quite small. 
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Subroutine BLTRI(N,A,B,C,D,X) 


SOLVES AN NBL x NBL BLOCK TRIDIAGONAL SYSTEM OF 
EQUATIONS, P6.6 


PARAMETER (NBL=2) 
DIMENSION А(50,5,5),В(50,5,5),С(50,5,5) ,D(50,5) ,DD(5) 
DIMENSION X(50,5) ,CD(50,5,6) ,BD(50,50) , JPVT(50) ,R(50) 


МЕР = NBL + 1 
DO 2 K = 1,NBP 
DO 1 J = 1,NBL 
CD(1,J,K) = O. 
CONTINUE 


FORWARD SWEEP 


DO 9 L = 1,N 
DO 5 J = 1,NBL 

DD(J) = D(L,J) 

DO 4 K = 1,NBL 

BD(J,K) = B(L,J,K) 

DO 3 I = 1,NBL 

IF(K .EQ. NBL)DD(J) = DD(J) - A(L,J,I)*CD(L,I,NBP) 
BD(J,K) = BD(J,K) - A(L,J,I)*CD(L,I,K) 

CONTINUE 

CONTINUE 


CALL FACT(NBL,BD, JPVT) 


KST = 1 
IF(L .EQ. N)KST - NBP 
DO 8 К = KST,NBP 

DO 6 J = 1,NBL 


IF(K .LE. NBL)R(J) = C(L,J,K) 
IF(K .EQ. NBP)R(J) = DD(J) 
CONTINUE 


CALL SOLVE(NBL,BD, JPVT,R) 


DO 7 J = 1,NBL 
CD(L+1,J,K) = R(J) 
CONTINUE 

CONTINUE 


BACKWARD SWEEP 
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DO 10 J = 1,NBL 
10 X(N,J) = CD(N+1,J,NBP) 

DO 13 L = 2,N 

LA = N + 1 - L 

DO 12 J = 1,NBL 


X(LA,J) = CD(LA+1,J,NBP) 
DO 11 K = 1,NBL 
11 X(LA,J) = X(LA,J) ~ CD(LA*1,J,K) *X(LA*1,K) 


12 CONTINUE 
13 CONTINUE 
RETURN 

END 


Typical solution 


BLOCK TRIDIAGONAL PROBLEM 2x2 М№=11 
$--0.1000E-4-01 0.1005Е--01 0.1020Е--01 0.1045Е--01 0.1081Е--01 0.1128E+401 
0.1185 Е--01 0.1255E--01 0.1337E401 0.1433E401 0.1543E+401 
ӘЕХ--0.1000Е--01 0.1005E+01 0.1020E401 0.1045E+01 0.1081E+401 0.1128E+01 
0.1185E+01 0.1255Е--01 0.1337E-F01 0.1433E+01 0.1543E+01 
T=0.0000E+00 0.2003E-F00 0.4026E+00 0.6090E+00 0.8214E+00 0.1042Е--01 
0.1273E+01 0.1517Е--01 0.1776Е--01 0.2053E+401 0.2350E+01 
ТЕХ--0.0000Е--00 0.2003E+400 0.4027E+00 0.6090Е--00 0.8215 Е--00 0.1042E+401 
0.1273E+01 0.1517Е--01 0.17768E+01 0.2053E401 0.2350Е--01 
NBL,N= 211 RMSS,RMST= 0.8957E-04 0.8578E-04 


67 То implement Jacobi iteration it is necessary to introduce an auxiliary 
array, WAJ(41,41), in line 78 and to include nested do loops setting WA(J,K) 
= WAJ(J,K) after line 82. The results for an 11 x 11 grid and TOL = 1.0x10 7? 
are indicated in the table. 


b/a 10 3.0 10.0 
À Nie Na Nit 
Jacobi 87 54 20 


10(6.5) 51 35 17 
1.55 (SOR) 15 12 8 


As expected the SOR technique produces convergence in the fewest iterations. 
Also as b/a increases the problem becomes more one-dimensional and conse- 
quently fewer iterations are needed to reach convergence. 


6.8 The finite difference ADI scheme for the DUCT problem (Sect. 5.5.2) is 
implemented as (6.66 and 6.67). The finite element ADI scheme is obtained by 
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retaining only the j line contributions of (b/a)*0?w/Ozr* on the implicit side 
during the first half step. This corresponds to My? & Lz,w;,, in (5.106). The 
terms M,1 9 „кш; and Муз B L,,w;,, are treated explicitly during the first 


half step. In an equivalent way М; @Ly,w;,, is treated implicitly in the second | 


half step. 
The following additional arrays are required 
DIMENSION WB(41,41), В(5,65), RHS(65), WAD(65), EM(3) 


WB is upgraded іп the first half step to avoid overwriting WA. B, RHS and 
WAD are needed for BANFAC/BANSOL. The parameter ALY is read in. The 


following code to set parameters is introduced after line 36. 


А.Х = ALY*(BAR*DY/DX) **2 
ALYH - ALY 

EM(1) = 1./6. 

IF(ME .EQ. 2)EM(1) » O. 
EM(3) = EM(1) 


EM(2) = 1.0 - EM(1) - EM(3) 
DO 52 L = 1,65 
DO 51 К = 1,65 


51 B(K,L) = 0. 
52 CONTINUE 


The SOR iterative scheme, lines 58-83, 1s replaced with the following ADI code. 


С ITERATE USING ADI 
С 

LCT = 0 

LCMAX = 10 


ALMAX = LCMAX - i 

DO 13 І = 1,ІТМХ 

LCT = LCT + 1 

IF(LCT .GE. LCMAX)LCT = 1 
АТС = LCT 

ANG = 0.5*PI*ALC/ALMAX 


ALY = ALYH*(0.5/SIN(ANG))**2 
ALX = ALY*(BAR*DY/DX) **2 
С 
С TRIDIAG IN X-DIRECTION 
C 
DO 108 K = 2,NYP 
KM = K-1 
KP = K*1 


DO 10 J =2,NXP 
JM = J-1 


С) 
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JP = J+i 
B(2,JM) = -ALX*EM(2) 
B(3,JM) = 2.0*ALX*EM(2) + 1.0 


B(4,JM) = -ALX*EM(2) 
IF(ME .EQ. 2)GOTO 9 
RHS(JM) = WA(J,K) + ALY*DYS + (ALY*ALX) * (WACJM,KM) 


14WACIM,KP) *WACJP, KM) *WACJP,KP))/6.* (2. OFALY-ALX) 


2* (WACJ,KM) *WACJ,KP))/3. 
3-ALY*(WACJM,K)*4.0*WA(J, K) *HACJP,K))/3. 


9 


10 


105 
108 


GOTO 10 
RHS(JM) = ALY*DYS + ALY*(WA(J,KM) *WACJ,KP)) 


1 *(1.0-2.*ALY) *WACJ,K) 


CONTINUE 

RHS(1) » RHS(1) - B(2,1)*WA(1,K) 
RHS(JM) = RHS(JM) - B(4,JM) *WA(CNX , K) 
B(2,1) = O. 

B(4,JM) = 0. 


CALL BANFAC(B,JM,1) 
DO 105 J = 2,NXP 
JM = 7-1 

WB(J,K) = WAD(JM) 
CONTINUE 


TRIDIAG IN Y-DIRECTION 


DO 118 J = 2,NXP 

JM = 7-1 

JP = Jti 

DO 114 K = 2,NYP 

KM = К-1 

KP = K*1 

B(2,KM) = -ALY*EM(2) 


B(3,KM) = 2.0*ALY*EM(2) + 1.0 

B(4,KM) = -ALY*EM(2) 

IF(ME .EQ. 2)GOTO 112 

RHS(KM) = WB(J,K) + ALY*DYS + (ALY*ALX)* (WB(JM,KM) 
1 +WB(JM,KP)+WB(JP,KM)+WB(JP,KP))/6.+(2.0*ALX-ALY) 
2 *(WB(JM,K)4*WB(JP,K))/3. 
3-ALX*(WB(J,KM)+4.0*WB(J,K)+WB(J,KP))/3. 

GOTO 114 


112 RHS(KM) = ALY*DYS* ALX*(WB(JM,K) *WB(JP,K)) 


1 *(1.0-2.*ALX) *WB(J,K) 


114 CONTINUE 


RHS(1) = RHS(1) - B(2,1)*WB(J,1) 
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RHS(KM) = RHS(KM) - B(4,KM)*WB(J,NY) 


B(2,1) = 0. 
B(4,KM) = 0. 
С 
CALL ВАМҒАС(В,КМ,1) 
С 
DO 116 K = 2,NYP 
KM = К-1 
SUM = SUM + (WA(J,K) - WAD(KM))**2 
116 МА(2,К) = WAD(KM) 
118 CONTINUE 
С 


RMS = SQRT(SUM/(ANX-1.)/(ANY-1.)) 
WRITE(*,119)I,RMS 

119 FORMAT(? I,RMS=’,I5, Е10.3) 
IF(RMS .LE. EPS)GOTO 15 

13 CONTINUE 


This code includes the sequence of iteration parameters (but with ALY, ALX 
commented out), 


Ay = Aya 10.5/[sin(0.527/N)]V? . 


The number of iterations to convergence, equivalent to Table 6.3, but with TOL 
= 1.0 x 1077, are shown below 











dy 10 15 29 №=09 Ay, =1.2 
ADI-FEM 23 16 div. 7 11 
ADI-FDM 23 17 11 13 6 





The ADI-FEM scheme, with fixed Ay, is not able to maintain a stable iteration 
for А, > 1.6; the lowest value of 16 iterations occurs at Ay = 1.5. The lowest 
value of 11 iterations at А, = 2.9 is achieved for ADI-FDM; stable results are 
obtained for A, = 3.9. The number of iterations is reduced by using a sequence 
of А, values. The two results shown for Ауһ = 0.9 and 1.2 are optimal for the 
ADI-FEM and ADI-FDM schemes respectively. 


6.9 To fit in with the multigrid formulation, the single-grid SOR algorithm, 
(6.63 and 6.64), is rewritten as 


RES = RHS + (Ма), + Ly ol) (1) 
and 


wr? = wh + (0.5A/PARI)RES™ | (2) 
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For the single-grid algorithm, RHS = 1.0. For the V-cycle multigrid method 
the above algorithm is used on the finest grid, and implemented in subroutine 
RELAX. After v1 relaxations, the residual, RESCGt "0 is injected to the next 


coarser grid as 
RHSm—1 = IR RESm I”, 


Consequently the same algorithm, (1) and (2), can be used on all coarser grids, 
for both legs of the V-cycle. The code to implement one V-cycle, including 
calls to RELAX and both injection and interpolation, is provided in subroutine 
MUGDU. The current solutions for w and RHS on all grids are stored in one- 
dimensional arrays, Q and F, respectively. Typical results are indicated in the 
table for a 33 x 33 grid. The coarsest multigrid is 5 x 5 with two relaxations 
moving to a coarser grid and one moving to a finer grid. 








Case À CUR Ми Nit,eq 
FDM,sg 18 - 84 84 
FEM,sg. 18 - 69 69 


FDM,mg 1.5 0.5 91 80 
FEM,mg 14 0.5 39 61 





In interpolating to the finer grid, the coarse-grid solution correction 1s under- 
relaxed by the factor, CUR (subroutine MUGDU). Each multigrid cycle re- 
quires some extra work, therefore Nj, indicates the actual number of calls to 
RELAX on the finest (33 x 33) grid, and Nit eq indicates the equivalent number 
of fine grid calls. For this particular example the single-grid algorithm is able to 
support a relatively large value of А. Consequently multigrid does not provide 
a major improvement in computational efficiency. However the advantages of 
using multigrid would be greater for a finer grid, a lower residual tolerance or 
a less diagonally-dominant problem. 


To implement multigrid, lines 58 to 83 of DUCT are replaced with the following 
code and CUR, LCOR, LFIN, LITD and LITU must be read in. 


С GENERATE MULTIGRID PARAMETERS INITIAL CONDITIONS 
С 

LST = 1 

DO 82 L = 1,LFIN 

NA = 2**L + 1 

KS(L) = LST 

82 LST = LST + NA*NA 
DO 83 L = 1,LST 


Q(L) = 0. 
83 ЕС.) = 0. 
KJST = KS(LFIN) - 1 


52 


84 
85 


С) 


13 
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DO 85 J = 1,NX 

JM = 1-1 

DO 84 K = 1,NY 

KJ = NY*JM + K + KJST 


F(KJ) = 1.0 
Q(KJ) = WACJ,K) 
CONTINUE 


ITERATE USING MULTIGRID (SOR FOR RELAXATION) 


DO 13 I = 1,ITMX 


CALL MUGDU(LCOR,LFIN,LITD,LITU,KS,Q,F,BAS, OM, CUR, RMS, ME) 


IF(RMS .LT. EPS)GOTO 15 
CONTINUE 


Additional subroutines, MUGDU and RELAX, are required. 


Subroutine MUGDU(LCOR,LFIN,LITD,LITU,KS,Q,F, 


1BAS,0M,CUR, RMS , ME) 


10 


12 


MULTIGRID FOR DUCT PROBLEM 


DOUBLE PRECISION Q,F,RES 

DIMENSION Q(1500),F(1500),KS(6) ,RES(33, 33) 
LCOS = LCOR * 1 

IF(LCOS .GT. LFIN)LCOS = LFIN 

DO 20 L = LFIN,LCOS,-1 


NF = 2**L+1 
NC = 2**(L-1)+1 
LST = KS(L) 


DO 10 LSUB = 1,LITD 

CALL RELAX(RES,Q(LST) , F(LST) , NF, BAS, OM, RMS,ME) 
IF(LCOS .EQ. LFIN)GOTO 20 

INJECT TO COARSER GRID 

NM - NC - 1 

KJST = KS(L-1) - 1 

DO 14 J = 2,NM 


J2 = 2*J - 1 
JM = J - 1 

DO 12 K = 2,NM 
K2 = 2*K - 1 


KJ = NC*JM + K + KJST 
F(KJ) = RES(K2,J2) 


14 CONTINUE 


Ca 


20 


30 


32 


34 


36 
38 
40 
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CONTINUE 


DO 40 L = LCOR,LFIN 


NC = 2**L+1 
NF = 2**(L+1)+1 
LST = KS(L) 


LSTF = KS(L+1) 

DO 30 LSUB = 1,LITU 

CALL RELAX (RES, Q(LST) ,F (LST) , NC, BAS, OM, RMS , ME) 
IF(L .EQ. LFIN)GOTO 40 

INTERPOLATE TO A FINER GRID 

KJSTF = LSTF - 1 

KJSTC = LST - 1 

DO 34 J = 2,NC 


JM = Ј- 1 

J2 = 2*J - 1 
J2M = J2 - 1 
DO 32 K = 2,NC 
K2 = 2*K - 1 


KJC = NC*JM + K + KJSTC 

KJCJM = KJC - NC 

KJF = NF*J2M + K2 + KJSTF 

KJFJM = KJF - NF 

Q(KJF) = Q(KJF) + Q(KJC)*CUR 

Q(KJFJM) = Q(KJFJM) + 0.5*(Q(KJC)+Q(KJCJM))*CUR 
Q(KJF-1) = Q(KJF-1) + 0.5*(Q(KJC)+Q(KJC-1))*CUR 
Q(KJFJM-1)=Q(KJFJM-1)+0.25*(Q(KJC)+Q(KJC-1) 

1% Q(KJCJM) + Q(KJCJM-1))*CUR 

CONTINUE 

DO 38 J = 1,NC 

JM = 2-1 

DO 36 K = 1,NC 

KJC = NC*JM + K + KJSTC 

Q(KJC) = 0. 

CONTINUE 

CONTINUE 

RETURN 

END 


Subroutine RELAX(RES,WA,RHS,NX,BAS,OM,RMS,ME) 
MULTIGRID RELAXATION FOR DUCT PRDBLEM 
DOUBLE PRECISION WA,RHS,RES,SUM 


DIMENSION WA (NX ,NX) , RHS(NX ,NX) , RES (33,33) 
NXP = NX-1 
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NYP = NXP 

ANX = NXP 

DX = 2.0/ANX 

DXS = DX*DX 

PAR1 = BAS + 1.0/DXS 

PAR2 (2./DXS - BAS)/3. 
PARS = (2.*BAS - 1./DXS)/3. 
OML = 0.5*0M/PAR1 

IF(ME .EQ. 1)0ML = 1.5*0ML 


SUM = 0.0D0 

DO 4 К = 2,NYP 
KM = K-1 

KP = K*1 

DO 3 J = 2,NXP 
JM = J-1 

JP = J+i 


IF(ME .EQ. 2)GOTO 1 
RES(J,K) = RHS(J,K)+PAR1/6.*(WA(JM,KP)+WA(JP,KP)+ 
1WA(JM,KM)*WA(JP,KM)) + PAR2*(WA(J,KP) + WA(J,KM)) + 
2PAR3*(WACJM,K) *WA(JP,K)) -4.*PAR1*WA(J,K)/3. 
GOTO 2 
1 RES(J,K) = RHS (J ,K)+BAS*(WA(JM,K)-2.0*WA(J,K)+WA(JP,K)) 
1% (WACJ,KM)-2.0*WA(J,K)+WA(J,KP))/DXS 
2 SUM = SUM + RES(J,K)*RES(J,K) 
НА(2,К) = МА(Ј,К) + OML*RES(J,K) 
3 CONTINUE 
4 CONTINUE 
RMS = DSQRT(SUM/(ANX-1.0)/ (ANX-1.0)) 
RETURN 
END 


6.10 Subroutines JACBU and FACT are called on the first iteration and 
then every p iterations. The operation counts are based only on floating point 
operations and assume that all operations require the same execution time. 
The operation counts per iteration for a 6 x 6 grid are 


RESBU = 315, JACBU = 297, FACT = 3078, SOLVE = 648. 


The number of iterations, Ми, number of calls to JACBU and FACT, N; 


E ` ` Joe 
and the total operation count, associated with the above four subroutines, are 


indicated below for conditions corresponding to Fig. 6.24. 
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р Na Njac Тоба! 
Operation 


Count 
LLL — 


1 23 23 99774 


5 23 5 39024 
10 23 3 32274 
20 23 2 28899 
30 23 1 25524 





For this problem the Jacobian, subroutine JACBU, is relatively insensitive to 
the current solution if At is small. Therefore it is only necessary to form and 
invert the Jacobian once. 


611 To provide a more useful example, DT = 0.5 and OM = 0.3 are used 
in place of the values indicated in Fig. 6.24. All non-diagonal terms in AJ, 
in JACBU, are set to zero if less than TOL*(DTI+2.*(CCX+CCY)) . The 
number of iterations, Му, to convergence for various values of TOL are shown 
in the table. 


TOL 0.10 0.30 0.45 0.49 0.50 
Nit 58 55 58 62 72 


A related strategy is to retain only tridiagonal terms in the z-direction for 
the *z-equation" and tridiagonal terms in the y-direction for the “y-equation”. 
This allows BANFAC and BANSOL to be used instead of FACT and SOLVE in 
two 9 x 9 systems. If JACBU and BANFAC are implemented at every step the 
total operation count for 91 iterations is 68,796. If JACBU and BANFAC are 
implemented only for the first step, the total operation count for 91 operations 
is 37,206. These results may be compared with those in Problem 6.10. 


6.12 For conditions corresponding to Fig. 6.24 the number of iterations to 
convergence, Nj, is indicated in the following table 


At) r р Nit 


0.01 1.0 1 23 
0.005 1310 19 
0.003 15 10 17 
0.005 15 6 18 
0003 18 6 18 
0.0415 2.0 6 22 
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The geometric ratio, r, has been progressively increased. For each value, At() 
and р have been modified empirically to obtain small values of М iis The strat- 
egy is modestly successful. All results have been obtained with w — 1 0. The 
solution to Problem 6.2 suggests it may also be effective to уагу ш. "ú 
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71 a) The given scheme is 


alot nag? - Tp) say -ту=!)} 


т; La = B)LarT; з өту?!) = 0 ‚ 


where L,,T7 = (T4, — 2Тў + T? )/Az*. 


Expanding every term in (1) as a Taylor series about Т, and ignoring terms 
containing derivatives like Z-(T, 4) and those of higher order, we have 


At At At 
(y +1) (т T > Tu px ate T еди + 2 


At AP ағ 
= (т = > u + _6 1% - oy Ta +. ) 


Ax’ Ат? 
= la == p) Ts; + LT) ete DT + EU T At T.) 


+О(Н)=0. 
Substituting for the derivatives as indicated іп (4.12), we have 
At 
T, — ati, + (27 + Ie TA 


o | Аз? 5 


T, + Fy T B Аа Т, +O(H)=0. 


Thus E? = sAz?a T4 |y + (1/2) — (1/128) + B] + O(H), 
after simplification. This agrees with (7.14). 


b) The algorithm is 


cre er, (4) 


те = Stet pe _F quaa 
epy 


J l+y ) 1+7 


with Lol doge 
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The corresponding ‘error equation’ is 


Ent __ 1 + 27 en ^Y £571 


|o bey de" (5) 
till (1— BE — 26? + ER) + BERT — 26771 + Е?) р. 


Upon substitution of £? = G" e? and simplification, 


1 
с-ЕЕ y 1s 
l+y 14+7G 1+7 








(a — B) (—2 + 2 cos 0) + AC + 2 cos 2). 


and 
(1+ y)G? — G[1 + 25 + 25(1 — 8)(соѕ0 — 1)] +y — 28s(cos0 — 1) = 0, 


as required. 


7.2 Operation counts are required for the FTCS, DuFort-Frankel and 3L-4TH 
schemes. Ignoring the operation counts in calculating the initial conditions and 
in imposing the boundary conditions, we have 


OPCTrrcs = (ТЕХ +5FL + R)(N, -- 2)N, 
+ (AFX +3FL+2R+2L)(N, — 2) (1) 
= 5.45(N, — 2)N, + 3.34(N, — 2) . 


OPC'TpuFort-Frankel = 4.35 NN, -- 2) + 3.6( N; -- 2) + 9.55. (2) 
OPCTsr-4Tu = 22.2 Ni( N: — 2) + 3.45(N, – 2). (3) 


When s = 0.3, each of the schemes takes 24 time steps to reach a time level of 
9 secs, with №, = 11. 

The corresponding operation counts are 1210, 930 and 4850. 

The computational efficiency is given by CE = k/(e CPT), where, 

СРТ = ak/sAz? (see page 91). 

With a = 0.01, Az = 0.1, s = 0.3, CPT = 100k/3 . 


The computational efficiencies are tabulated below. 


Scheme OPCT € CE 
FTCS 1210 0.1634 0.184 
DuFort-Frankel 930 0.0136 2.21 
3L-4TH 4850 0.00416 7.21 


As we would expect the 3L-4TH scheme has the highest computational ef- 
ficiency even though it also has the highest operation count. Both of the 
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other schemes are second-order with roughly the same operation count. How- 
ever the specific choice s = 0.3 is close to the “fourth-order accurate” value, 
s = (1/12)95, for the DuFort-Frankel scheme. If s were close to 1/6 we would 
expect the FTCS scheme to demonstrate a much higher computational efh- 
ciency. 


7.3 Here we undertake the construction of a two-level, five-point scheme of 
fourth-order accuracy. À general two-level, five-point scheme for the diffusion 
equation may be written as, 


Tn+1 T? 
——AÀ — а LiT, - 0. (1) 


It is required to find the form of LiT to give fourth-order accuracy . 


a) Interior points: 
Using а symmetric five point operator for L?., we have, 
n+l тп 
1; 1; 29 

At Ал? 





(aT'j-2 + ЫТ -1 + cT; + bT 541 + aT;42)" . (2) 


То find the constants а, b and с we expand every term in (2) as а Taylor series 
about Т). Following the procedure used in Problem 3.1 we have 


2а--25--с 16a + b 








5m m. 2 
L? T = Хы + (4a + b)T,, + T ArT 4 4 O(H). (3) 
Clearly 2а--25--с-0О апа 4а + 5 = 1, so that 
1 5 
L T = Т, АТ, + О(Н). (4) 


Expanding the LHS of (1) also as a Taylor series about Т? and carrying out 
the usual simplification, we have 


a? At 16а + b 


а At 2 _o. 
5 а---2 Ax?) + OCH) 0 


Tı — «Ту + Тл ( 


Fourth-order accuracy is achieved when 


a? At 1б6а--5, 4 16a 4- b 
-а Ar’, or з= . 
2 12 6 











Consequently we choose а = s/2— 1/12, b = 4/3 – 28, c = 3s — 5/2. 


The possible scheme for the interior points is, from (2), 
1 
Tw —1 + 0з -- 13 (B2 + Tj42) 


4 п 
+ (3 — 2s)(Tj-1 + Tj41) + (88 — 23) 
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Stability: The amplification factor is found to be 

G= 5} 2(0.5 — =) сов 20 + X — 23) cos 0 + 35 — 25) +1. (7) 
For |G| € 1, s< 0.66 is the stability condition. 

b) Boundary points: 

()1-2 Let 

LT = Ta + bT; + cTy41 + dTj42 + eT;+3) . (8) 
A Taylor series expansion shows that 


a+b+c+d+e =0; -a+c+2d+3e -0; and 


9 
at+tet+4d4+9e=2. (9) 


A 
Hence L2,T = Ter + (—a + c + 8d + 27e) — T, 
Az? (10) 


Substituting (10) in (1) and carrying out the truncation error analysis as before, 
we have 





A 
T, — аТ,,- TS T,s(-a + c + 8d + 27е) 
2 t 2 
+ Tf - = (ae 164+ 816)} +O(H)=0. 


For a fourth-order accuracy, we require, in addition to (9), 
-а+с+ 8а + 27е = 0), 
Ax? 2A 
ES (a + c4- 16d + 81е) = o 21 


1.е. а+с+164+81є = T = 125 








Solving (9) and (11) for a,b, c, d and е, we have 
a = s/2 + 11/12, b = —2s — 5/3, c= 3s + 1/2, 19 
d = —2s + 1/3, e = s/2— 1/12. (12) 


Hence the scheme at j = 2, comes out to be 


lan lan 8 l an 
+ s(3s + 5)Туча + s(—2s + 222 + 5(2 - НЕЕ 
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Stability: The amplification factor is 
Os s 11 1 - 1 598 
G = (1 — 23? — 3)*s( + 15) cos 8 + (35 + 5) cos8 + sí s+ 3) со 


1 | s 11 1.4. 
+ s — 15) cos 36 + | [—5(— + 12) + s(3s + 5) sin 0 


S 


1.. 
+ s(—2s + =) sin 20 + 8(5 12) sin J . 


For | G| < 1, s < 0.36. 


(ii) j= ЈМАХ -1 


Let the scheme be 





п+1 "Tn 
Ааа: = ТҮ (аТ; з + bTj-2 + cTj-1 + dT; + eTj41) . 
T 


Carrying out the analysis as before, we find the algorithm to be 


5 1. п 
1 5s n 8 11 n 
+ s(3s + 5)1]-1 t(1-2s*— 3) t s(5 T 15 T5 | 


Alternatively we could have deduced this scheme from the boundary scheme 


at j = 2. 
Stability: Тһе amplification factor 15 


5s s 11 
С = (1 — 25? — 3)**( + 75) cos 


> _ =) соѕ30 


1 1 
+ s(3s + 5) соз8 + s(—2s + =) сов20 4-52 — 1; 


11 l4. l.. s li. 
‚|$ + 12) - 8(38-- 2 sin 0 — s(—2s + 3) sin 20 — s(ç E sina} 


Thus |G] < 1 for all s € 0.36. As expected this is the same restriction as for the 
boundary scheme at j = 2. As noted in Sect. 4.3.4 the von Neumann stability 
method is more reliable for interior schemes than boundary schemes. 


Numerical tests: 


Running the computer program for various values of s and Ат, the following 
rms solution errors are obtained. The rate of reduction of error is indicated in 


brackets. 
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S Ar = 0.2 Ag = 0.1 Az = 0.05 

0.1 0.1959 0.0087( 22) 0.00022( 40) 
0.2 0.067 0.0038( 17)  0.00022(~ 17) 
0.3 0.2195 0.012(% 18) 0.00061(ғ 20) 
0.4 0.2935 0.0179(% 16) 0.00103( 17) 
05 0.9 0.0232(ғ 40) 0.00148(ғ:16) 
0.6 1.461 0.1888(ғы 8)  0.00184(~ 100) 





We notice that a fourth-order accuracy is indeed obtained as is evident from 
the rates of reduction of error. 


To check the stability condition, the program is run with values of s close to 
the stability limit. The following rms errors are obtained when Ar = 0.05, 
t = 75000 sec.. 


5 rms error 


0.6 0.256 x 1073 
0.65 0.256 x 1073 
0.67 0.259 x 107? 
0.68 0.126 x 107 


The computed errors confirm the interior point stability limit of s < 0.66, 
and indicate that the predicted stability limits for the boundary schemes are 
unnecessarily restrictive. 


7.4 Ап inspection of Fig. 7.3 indicates that the scheme (7.13) is stable for 
certain values of y. By solving (7.17) for negative values of y, one obtains the 
following stability limits on s. 





y= 0 -01 -02 -03 -04 -05 -06 





s< 033 0.31 0.29 0.26 0.22 0.166 unstable 





By running DIFEX with у = —0.5 and s close to the stability limit the following 
solution errors are computed, at t = 90 sec. with Ат = 0.1. 





8 = 0.16 0.17 0.18 





solution error 0.2930 x 1074 0.4636 x 1071 unstable 





One-Dimensional Diffusion Equation 63 


To check the effect of negative values of 7 on the accuracy, running the program 
for different values of Ат and у = —0.5, s = 0.16, t = 9 sec., we find the rms 
errors to be 


Ar = 0.1 0.05 








error 0.5743 x 1073 0.2845 x 1074 





Thus we find that the error decreases at a rate of about 20, thus showing that 
the fourth-order accuracy of the three level scheme is preserved. One notes that 
the scheme (7.13) with positive or negative values of y should give a fourth- 
order accuracy as is evident from (7.15) which is constructed to ensure that 


accuracy. 


For the choice y = —0.5, it is readily seen that the term 
{(1+ yr cq TA , reduces to (TPT — TA | 
as for the DuFort-Frankel scheme. Thus scheme (7.13) now looks like a DuFort- 
Frankel scheme, ie. 

ques = Tow 


у afl- 0); Tp +8 L, Tp] =0. (1) 


In (1) the spatial discretisation does not contain ТҮЗІ terms unlike the DuFort- 
Frankel scheme (see 7.9). But by setting 2 = 0, one gets the scheme (7.8) which 
1s unconditionally unstable. 


7.5 Тһе condition for fourth-order accuracy, (7.30), in the scheme (7.26) will 
be derived. The scheme (7.26) 1s 


, (2777 м (2 
(1-4 vy) т At = (5) (1) 


Б а[8 Ll ng (1 zs Plat =0, 








with AEE = i жє] AT ск = ТС! and Lal; = (jer 2274 
T;+4 )/ Аз”. 
Expanding the terms as a Taylor series about Т? we have 


1+7)M,AT?t! M,AT? t 
(G+ year = Еда a == М.Т, + мға Б 2) іт, 


At At (2) 
At? Ate 
+ М.—=— Та + мға + 29) Sy Та sp O(H) i 


Substituting for М, and expanding each group of terms about T7 and simpli- 
fying, (2) reduces to 
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At AU AC 
Ti t (2 + 1) Ta STs + ST + 62? Tu, + O(H). (3) 


Following a similar procedure we find 


т 


a Жыт ad = МІ = Úa[T,, + — = Та + BAT] + О(Н). (4) 


12 
Substituting (3) and (4) in (1), we have 
2y+1 ó 1 
T, — aT,, + aAx’ T (23H ------ = 
24 2 + - TF 81--О(Н)-0. 


For fourth-order accuracy, 


NL ó 1 





as required. 


7.6 Stability of the scheme (7.31) is analysed as follows. 
The given scheme is 
ATHY + B; т +С; Те = 
(1+ 2y)M,T? - үМ,Т?- 1 +(1 — B)sL,,T7. (1) 


Writing out (1) in an extended form and substituting for A, B, C and L. from 
(7.31), the ‘error equation’ is 


(036 — 98} {ert + C) + (Qe) — 26) + 258] 7 
= (1+ 235) (665-1 + (1 — 26)€; 66541)" 

- (8-1 + (1 — 26)6; + éj) — 

dede B)s(£j—. — 26; + ына). 


Upon substituting £? = G etj the amplification factor is given by 


G^(( o 7)6 — s8)(2cos0) + (1+ 7)(1 — 26) + 258] 
— G{(1 + 2y)(26 соз Ө + 1 — 26) + (1 - 8)(2 cos 8 — 2} (3) 
+ 7{26 cos Ө + 1-26)--0. 


Also, from (7.30), 


s- 


A program was written to calculate G for given values of б, y and s. The 
stability limit obtained for various 6 and negative values of y values are given 
in the following table. 
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6 = 0 unstable unstable s < .05 
6=1/12 unstable s<.083 в8<.22 
6 = 1/6 Bow 219 s < .28 s < .37 


тт DIFIM is run with 6 = 1/6, у = 0, 6 = 1 and s = 1/6 as suggested. Note 
that this is the case МЕ = 4 for which DIFIM employs the FEM-4TH order 


scheme. 


The modified program was run for the conditions: Ar = 0.1, t = 12 sec., Tl 
— 4.5 sec., and the computed solution error was 0.3068 x 107%. For comparison 
the FTCS gives an error of 0.6872 x 10-2. This is additional evidence of the 
fact that FEM with mass operators gives substantially more accurate results 


than a finite difference scheme. 

Other parametric combinations that make (7.31) explicit: 
АП А; = С; =0 ie B=(14+7)6/s. 

Substituting this into (7.30) gives 

ү = (0.5s — 1/12)/(6 — з). 


7.8 Running the program DIFIM for the cases suggested, i.e. M E = 4,5 and 
y = 0.5 and s = 1.0, the following results are obtained. In the table r denotes 


the rate of convergence. 


МЕ = 4, FEM-4th order 








Ax solution error r 
0.2 0.8524 

0.1 0.0554 x 3.9 
0.05 0.0035 де 
0.025 0.0002 x4 





ME = 5, Composite scheme 








Az solution error r 
0.2 1.085 

0.1 0.0636 cz 4,1 
0.05 0.004 = 
0.025 0.0002 = 4 
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Comparing these results with those in Table 7.6, we find that for a given Ат 
the error increases with у. The convergence rate, however, is about the same 
for all values of y. The result is in accordance with the observation made in 


the text (page 235). 


7.9 Operation counts will be obtained for the implicit schemes. For the pro- 
gram DIFIM, the approximate operation counts are 


(JMAX -2(3FL--2FX)-- N(JMAX -2)(1FX +3(7FX + 12FL + 1R)} 
+N,(5FL) + N(JMAX – 2)(3FL+3FX +1R) 

+(JMAX – 3)N,(6FL +9FX + ЗВ) (in subroutine BANSOL) 
+(JMAX —3)(8FX+3FL+1R) (in BANFAC). 

which simplifies to 


(6.6J MAX — 2.7)4- 


1 

N(JMAX — 2)(40.75) - 5 + (JM AX — 3)(6.75) JF Leg | 1) 
Running the program DIFIM for ME = 1 and 4, and with s = 1.0, TST—4.5 
sec. and t=12 sec., we find that each of the cases takes 8 time steps, when 
Ar —0.1 ie. JMAX = 11. 


Thus the operation counts are, from (1), 
(6.6 x 11 — 2.7) + 8{9 x 40.75 + s + 8 x 6.75} = 3470 F Leg . 


Computational efficiency: Running the programs DIFEX and DIFIM for the 
suggested cases, the following solution errors are obtained. Computational ef- 
ficiencies are calculated following the procedure outlined for Problem 4.14. 


eee 


Solution Comp. 


Scheme error efficiency 
FTCS(s=0.5) 0.3264 0.1539 
DuFort-Frankel(s=0.3) 0.01076 2.788 


DIFIM (ME=1, FDM-2ND, s=1.0) 0.1466 0.682 
DIFIM (ME=4, FEM-4TH, s=1.0) 0.0152 6.57 


eee 


The FEM-4TH order scheme is seen to be the most efficient. This is a conse- 
quence of the fact that this scheme gives a low error at a fairly high s value of 


1.0. 


7.10 Modifications of the program DIFEX are made to implement Neumann 
boundary conditions. The test case chosen is the one described in Section 1.3.2 
of the text. The following changes аге made to DIFEX. 


1. The region of interest now is 0.1 < z < 1.0. 
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2. The subroutine EXACT is modified since now the exact solution is simply 
given by (7.40). 
3. The Neumann conditions are forced at т = 0.1. An option is built into the 
program to choose the first-order implementation (7.32) or the second-order 
one (7.34). 

a) First-order Neumann conditions: Running the program with s = 0.3 
for different values of Az up to a time level of t z& 9 sec. gives the following 


solution errors. 


Scheme \ Ar = 0.225 0.1125 0.05625 
ЕТС5--(7.32) 0.2028 0.0812 0.0357 
МЕ = 2 0.2205 0.08312 0.0358 
ME =3 0.1952 0.0721 0.0309 


For the ЕТС scheme (i.e. МЕ = 1) the error distribution, with J M AX = 5, 


is as follows 


c= 01 0.325 0.55 0.775 1.0 


Error 0.3937 0.2060 0.08657 0.027 0.0 


For ME = 1, i.e. for the FTCS scheme, it is observed that the solution error 
and the error distribution closely follows the ones given in Tables 7.8 and 7.9. 


b) Second-order Neumann conditions: For s = 0.3, t zz 9.0 sec. 


Scheme Ат = 0.225 0.1125 0.05625 


ЕТС5 0.00175 0.000420 0.000107 
DuFort-Frankel 0.00152 0.000445 0.000118 


3L-4TH order, y =0 0.00176 0.000512 0.000136 


The error distribution, with JM AX = 5, is as indicated. 


Scheme \ x= 0.1 0.325 0.55 0.775 1.0 
FTCS -0.00033 -0.00221 -0.00271 -0.00173 0.0 
DuFort-Frankel -0.00309 -0.00137 -0.000355 -0.0000667 0.0 


3L-4TH order ,y = 0 -0.00344 -0.00177 -0.000755 -0.000268 0.0 


The rms solution error and the error distribution are seen to agree closely 
with the ones given in Tables 7.8 and 7.9. For the 3L-4TH scheme the errors 
computed are smaller than those shown in Table 7.9. 
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Modifications to DIFEX for Problem 7.10 


1. The variable NORDER is read in along with the others. 


2. The following statements replace lines 12 to 16. 


PI = 3.1415927 
PI2=2.*PI 
EXTERM=-ALPH*PI*PI/4, 
SINP=SIN(0.05*PI) 
XINT=0.1 

XEND=1.0 

JMAP = JMAX - 1 

AJM = JMAP 
DELX=(XEND-XINT) / ( JMAX-1) 
DELT = DELX*DELX*S/ALPH 


3. Lines 53 and 54 are replaced by 


IF(I .EQ. 1)TOL(J) = TE(J) 
IF(I .Е0. 2)TN(J) = TE(J) 


4. [ines 60 to 63 are deleted. 
9. Lines 95 to 102 are replaced by 


C 


C3 


17 CONTINUE 
IF(NORDER.EQ.2) THEN 
CN= (2. - PI2*SINP*EXP (EXTERM#T) ) 


DUM(1)=-2.*S*DELX*CN+(1.-2.*S) *TN(1)+2.*S*TN(2) 


ENDIF 


DO 18 J = 2,JMAP 
IF(ME .GT. 1)TOL(J) = TN(J) 
18 TN(J) = DUM(J) 


IF(NORDER.EQ.2) THEN 
IF(ME.GT.1) TOL(1)-TN(1) 
TN (1)-DUM(1) 

ENDIF 


SET BOUNDARY CONDITIONS 


T = T + DELT 
IF(NORDER .EQ. 1) THEN 


TN(1)-TN(2)-DELX* (2. - PI2*SINP*EXP(EXTERM*T)) 


TOL(1) = TN(1) 
ENDIF 


TN(JMAX) = 2. 
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TD(1) » TN(1) 
TD(JMAX) = TN(JMAX) 


6. Subroutine EXTRA is modified as 
Subroutine EXTRA ( ЈМАХ , MAXEX ,DELX , PI, ALPH,T, TE) 


C 
G EXACT SOLUTION OF THE TRANSIENT HEAT CONDUCTION PROBLEM 
C 
IMPLICIT DOUBLE PRECISION (А-Н,0-2) 
DIMENSION X(41),TE(41) 
2 
XINT=0.1 
XEND=1 .0 
EXTERM=EXP (-ALPH*PI*PI*T/4. ) 
HAFPI=PI/2. 


DO 2 J = 1,JMAX 

X(J) =XINT+ (XEND-XINT) *(J-1)/(CJMAX-1) 

TE(J) = 2.*X(J)+4.*COS (HAFPI*X (J) ) *EXTERM 
2 CONTINUE 

RETURN 

END 


711  DIFIM is modified to implement the Neumann boundary condition 
T 
c at х —0.l. (1) 
т 
a) First-order Neumann conditions: 
The algebraic equation used is 
TH = ТУ! — OH Ar, (2) 
which is a discretised version of (1). See also (7.33) of the text. 
In program DIFIM, the coefficients B(1), C(1) and D(1) are modified accord- 
ingly. 


The computed solution errors are tabulated below for s = 1.0, t © 15 sec. 





Scheme V Ах = 0.225 0.1125 0.05625 





FDM-2ND, ME=1 0.1655 0.0758 0.0344 





The corresponding error distribution for Ат = 0.225 18 





pcs Ol 0.325 0.59 0.770 1.0 





Error 0.3264 0.1622 0.01627 0.00872 0.0 
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b) Second-order Neumann conditions: 


То implement the second-order Neumann conditions at т = 0.1, (7.36) is em- 
ployed. The modifications to program DIFIM are shown in the following listing. 
The computed solution errors for s = 1.0, t = 15 sec. are tabulated below. 


Scheme V Az = 0.225 0.1125 0.05625 


FDM-2ND , ME=1 0.0318 0.0027 0.000543 C 
FDM-4TH , y =0 0.0108 0.00177 0.000293 
FDM-4TH , y =1 0.0097 0.00161 0.000280 





The error distribution for Ar = 0.225 is 





Scheme \ x= 0.1 0.325 0.55 0.775 1.0 





FDM-2ND -0.02585 -0.01469 -0.00756 -0.003266 0.0 
FDM-4TH,y =0 -0.02185 -0.00984 -0.0032 -0.000808 0.0 
FDM-4TH,y =1 -0.0202 -0.00722 -0.0016 -0.0 0.0 





The errors, both ‘rms’ and ‘local’, are smaller on the fine grid as expected. 


Modifications to DIFIM for Problem 7.11 


1. The variable NORDER is read in along with the others. 

2. The following statements replace lines 15 to 19. C 
PI = 3.1415927 
PI2=2.*PI 
EXTERM=-ALPH*PI*PI/4. 
SINP=SIN(0.05*PI) 
XINT=0.1 
XEND=1.0 
ЛАР = JMAX - 1 
AJM = ОМАР 
DELX=(XEND-XINT) / ( JVAX- 1) 
DELT = DELX*DELX*S/ALPH 


3. Lines 65 and 66 are replaced by 


IF(I .EQ. 1)TOL(J) » TE(J) 
IF(I .EQ. 2)TN(J) = TE(J) 


4. Lines 16 to 17 are replaced by, 


TD(1) = TN(1) 
TD(JMAX) = TN(JMAX) C 


9. Lines 87 to 102 are replaced by, C 
C 


12 


13 
14 


1 
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IF(NORDER .EQ. 2) THEN 
A(1,1) = 0. 

A(2,1) = O. 

А(3,1) = 1.%2.%5 
A(4,1) = -2.%5 

А(5,1) = 0. 

ELSE 


A(1,1) = 
A(2,1) = 
A(3,1) = 
A(4,1) = -1. 
A(5,1) = 0. 
ENDIF 


= о о 


ро 14 Ј = 2,ЈМАР 
ЈМ = Ј 

IF(N .GT. 176070 12 
A(1,JM) = 0. 

A(2, JM) 
A(3, JM) 
A(4, JM) 
A(5, ЈМ) 
D(JM) = 


онат тон 
` осш = 
- D tU tU 


DO 13 K 1,3 

KJ = J-2+K 

D(JM) = D(JM) + EMX(K)*((1. + 2.*GAM)*TN (KJ) 
- GAM*TOL(KJ)) 

D(JM) = D(JM) + S*ELX (К) *(1.-BET) *TN (KJ) 

CONTINUE 

CONTINUE 


T = T + DELT 

CN=2. - PI2*SINP*EXP (EXTERM*T ) 
IF(NORDER .EQ. 2) THEN 
D(1)sTN(1)-2.*S*DELX*CN 

ELSE 


р(1) =-CN*DELX 
ENDIF 
D(JMAP) = D(JMAP) - A(4, JMAP) *TN (JMAX) 


SOLVE BANDED SYSTEM OF EQUATIONS 


6. Subroutine EXTRA is modified as for Problem 7.10. 
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7.12 Неге we consider the effect of different initial conditions on the solution 
obtained from Dufort-Frankel scheme. The DuFort-Frankel scheme needs two 
levels of starting data: namely at t, and t, — At. The resulting solution is to 
be compared with that obtained by introducing the FTCS scheme at to — At. 
The program DIFEX with ME = 2 is used to get the DuFort-Frankel solution 
with both the levels of starting data being the exact solutions. 


a) The solution errors at t = 9 sec. are given below for various values of s and 
Ат, with the two levels of starting data given by the exact solution. 


— CS eee 


s \Ar= 02 0.1 0.05 0.025 
0.3 0.02437 0.01362 0.003955 0.001029 
0.5 1.732 0.4099 0.1032 0.02602 


аа Еа, 


b) Тһе solution errors for the case when the starting data at t = t, — At is 
exact and that at % is computed by the FTCS scheme. 
E 


s Араз 409 0.1 0.05 0.025 
0.3 0.1148 0.01845 0.004263 0.001048 
0.5 1.732 0.4099 0.1032 0.02602 


ААЖ 


As expected, the solution for Case а) is more accurate than that for Case Ы). 
The inferior accuracy for the Case b) is accounted for by the fact that the 
starting data already has the error introduced by the FTCS scheme. However, 
as the grid is refined, this error in the starting data is reduced and the two 
cases tend to be equally accurate. 


The solutions at s = 0.5 are identical for the two cases. This is due to the fact 


that the DuFort-Frankel scheme reduces to the FTCS scheme when s = 0.5 


(see p. 220). 


7.13 The program DIFEX is readily modified to apply the four-stage Runge 
Kutta method (details given in Sect. 7.4). A listing of the program is given 
after Problem 7.14. 


Running the program with s = 0.41, the computed solution errors are as follows 
s = 0.41, ts = 2 sec., t = 9 sec. 





Az= 0.2 0.1 0.05 





Error 0.8 0.2037 0.05151 
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It is noted that the error decreases by a factor of 4 as the grid size is halved 
indicating that the method is of second-order accuracy. This implies that the 
overall accuracy is dominated by the discretisation of the spatial term. 


Comparing with the results in Table 7.3, it is found that the four-stage Runge- 
Kutta method is more accurate than the FTCS scheme and is of comparable 
accuracy to the DuFort-Frankel scheme. The accuracy of the Runge-Kutta 
method is inferior to that of the three-level fourth-order scheme. 


7.14 i) Truncation error analysis for the four-stage Runge-Kutta method: 
Denote the scheme by 


A * жж жжж 
TM? = туа Ch + Osh $f), (1) 


where 
Т" = Т? +a, At f”, 
T= TP +02 At f". 
Te" = T? +оз АҒ)”, 


and Q] = Q2 = 0.5, Q3 = 1.0. 


а n n n 
f" = Au eT RT 


Applying a Taylor series expansion the following expressions are obtained. 








A 2 
f(T) = а(Т,, + “iz TA) + OCH). (2) 
At Ax’ 
Т" = TP + алі Tre +018 — T, + О(Н). 
A 2 
ft = (Tez + At Tia + T T 4)-4 O(H). (3) 


T** =T; + боз AtT,, + 0405387 At? Та + 
aa At Ат? 


T 4,-O(H). 
12 ашы 


A 2 
{Жыш Тыла Д Tea) OD. (4) 


T*** =T? + o3a At T,, + а"аҙоҙ АҒ Ta 
At Az? Тл + O(H). 


A 2 
fr" = a[T,, + asGAt T, + s T4] +О(Н). (5) 


74 СТЕР Solutions Manual: Chapter 7 


Substituting (2), (3), (4) and (5) in (1) and expanding TP+! as a Taylor series, 
we get 
Az? 2 


2 2 3 A2 
12 + =з Ax 5A?) oun. 





D- Tas -a( 


where the relations Tu = a T4 and s = a At/Az? have been used. The leading 
term in the truncation error is thus found to be 


1 S 
АТ a (+ | Az. 
аға (5 t 3 i 
Thus the method is of second-order accuracy as already observed in Problem 
7.13. 


n) von Neumann stability analysis of the Runge-Kutta method: 


As described in Sect. (7.4) the Runge-Kutta methods have the stability interval 
given by 


—2.78 < Ap At < 0. 
The eigenvalues A; are given by (7.58) 


Кт 


М +1 





Ap = a(—2 + 2 cos )/Ах*. 


Since we аге considering a scalar equation M = 1 and max |А„| = 4a/Az’. 
Hence for stability we have 4 а/А4/ Ат? < 2.78 or s < 2.78/4 < 0.7. 


To check the stability analysis the program RUNKUT, listing given later, was 
run with s values closer to the above determined stability limit and the com- 
puted solution errors for Ат = 0.05, tat = 2 sec., t = 90 sec. are as follows. 


8 Error 


0.41 0.791 x 10? 
0.7 0.219 x 107? 
0.71 10° 


Thus the predicted stability limit is obtained in practice. 


iii) Operation count and computational efficiency for the four-stage Runge- 
Kutta method: 


The operation count for the Runge-Kutta method is (see listing below ) 
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{2FL +8 FX +2R44(JMAX —2)N,[8FL+7FX +3R+ FL + FX] 
+ NUMAX -2)2FL-41FX + FL+2FX + В) 


+ NFL + в} 1. 


which simplifies to {2.6 + М (ЈМАХ —2)(42) + 1.1 №} FLeg . 


Running the program with ѕ = 0.41, Ат = 0.1, one finds that it requires 18 
time steps to reach a time level of 9 sec. starting from a time level of 2 sec. 


The operation counts are 6826 F'L,,. 
The solution error is 0.2037 so that the computational efficiency 1s 0.201. 


From Table (7.3) we find that the computational efficiency, for s=0.41, of the 
FTCS, DuFort-Frankel and three level fourth-order schemes to be 

0.1356, 0.1966 and 1.79. Thus we observe that the Runge-Kutta scheme demon- 
strates comparable efficiency to that of the other second-order schemes. But as 
noted in Problem 7.13 the discretisation of the spatial term is the dominant 
factor. 

Program RUNKUT is obtained by replacing lines 1 to 112 of DIFEX with the 


following lines. 


Modifications to DIFEX for Problems 7.13 and 7.14 


PR7P13, РЕТР14. 

RUNKUT SOLVES THE DIFFUSION 

(1D TRANSIENT HEAT CONDUCTION) 
EQUATION USING RUNGE KUTTA METHOD. 


WRITTEN TO RUN FOR VARIOUS VALUES OF 5. 


су С) С) су G X С) 


IMPLICIT DOUBLE PRECISION (А-Н,0-2) 
DIMENSION TN(41) ,DUM(41) ,TD(41) , TE(41) , TOL(41) 
1 ,COEFF(4) ,BETA(4) , RHS (41) , TF(41) 


OPEN (1, FILE=’RUNKUT.DAT?) 
OPEN (6, FILE=’ RUNKUT. OUT?) 
READ (1,*) IPR, JMAX,MAXEX,NMAX,ALPH,S, 
1 TMAX,TST,NSTAGE 

С 

555 WRITE(*,*)’GIVE 5»? 

READ (ж,ж)5 
IF(S.EQ.999.) GO TO 999 


PI = 3.1415927 


76 


GQ С) С) 0 


AQ 


Ca 


44 


5 


6 
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JMAP = JMAX - 1 


AJM = JMAP 
DELX = 1./AJM 
DELT = DELX*DELX*S/ALPH 


WRITE(6,44) 


FORMAT(? RUNGE - KUTTA SCHEME',//) 

WRITE(6,5) JMAX,MAXEX,NMAX,TMAX,TST 

FORMAT(’? JMAX2!,I5,? MAXEX=’,I5,’ NMAX-',I5, 

1? ТМАХ-?,Е5.2,) TST=’,F5.2) 
WRITE(6,6)S,ALPH,DELT , DELX 

FORMAT(? S=’,F5.3,’ ALPH = ’,E10.3,’ DELT = >,Е10.3, 
1! DELX = >,Е10.3,//) 


COEFFICIENTS FOR THE RUNGE KUTTA METHOD 
( SEE EQN. 7.53) 


COEFF (1) =0.5 
COEFF(2)20.5 
COEFF (3)=1.0 
COEFF (4) =1.0 
BETA(1)=1./6. 
BETA(2)=1./3. 
BETA(3)=1./3. 
BETA(4)=1./6. 


OBTAIN INITIAL CONDITIONS FROM EXACT SOLUTION 


T = TST 

CALL EXTRA(JMAX,MAXEX,DELX,PI,ALPH,T,TE) 
DO 8 J = 2,JMAP 

TOL(J) = TE(J)/100. 

TN(J) = TE(J)/100. 

TF(J) = TE(J)/100. 

CONTINUE 


SET BOUNDARY CONDITIONS 


TOL(1) = 1. 

TOL(JMAX) = 1. 

TN(1) = 1. 

TN(JMAX) = 1. 

TD(1) = 100.*TN(1) 
TD(JMAX) = 100.*TN(JMAX) 
N = 0 


C1 


C1 


о € С) ао 


10 


67 


68 


66 


69 


19 


20 


One-Dimensional Diffusion Equation 


EACH TIME STEP STARTS AT STATEMENT 10 
N =N +1 
RUNGE- KUTTA METHDD. 


DO 66 NST=1,NSTAGE 
DO 67 J=2,JMAP 
RHS(J)= S*«(-2.*TN(J)+TN(J-1)+TN(J+1)) 


DUM(J) =TOL(J)+COEFF (NST) *RHS(J) 
TF(J)=TF(J)+BETA(NST) *RHS (J) 
CONTINUE 

ро 68 J=2,JMAP 

TN(J)=DUM(J) 

CONTINUE 

DO 69 J=2,JMAP 

TN(J)=TF (J) 

TOL(J)=TN(J) 


DO 19 J = 2,JMAP 
TD(J) = 100.*TN(J) 

T = T + DELT 

IF(IPR .EQ. 1)WRITE(6,20)T,(TD(J),J=1,JMAX) 
FORMAT(? T= ’,F5.2,’ TD=',11F6.2) 


IF MAXIMUM TIME OR MAXIMUM NUMBER OF TIME-STEPS 
EXCEEDED EXIT FROM LOOP 


IF(N .GE. NMAX)GOTO 21 
IF(T .LT. TMAX)GOTO 10 


(T 
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Multidimensional Diffusion Equation 


8.1 Тһе von Neumann stability analysis of (8.7) is carried out as follows. 
Since а = o; = a, and Az = Ay, we have s = s, = Sy. 


Following the same procedure as for the von Neumann stability analysis carried 
out in the previous chapters, we see that the amplification factor is given by 


(G — 1) — 2s(cos 6, — 1) — 2s(cos Ө, — 1) — 48s? (cos 0, — 1)(соѕ 0, — 1) = 0. (1) 
Since 0 = 0, = 6,, 
С = 1+ 4s(cos0 — 1) + 4s^(cos? 0 — 2cos0 +1). (2) 


|G| € 1 for 0 € s < 0.5 as required. 


8.2 ‘Truncation error analysis for scheme 8.7 is carried out in the following 
way. The scheme 8.7 is given by 


п-Е1 n n n 
Тук —Tjk-0GA7MLST?—oAMLQT? – а? AL, ,Ly T = 0. (1) 


Using centred differences and expanding the terms as a Taylor series about 
T.» we get after simplification, 


At At? 
Т, + 3 Tu + ^g du T... 


Ax? Дт“ 
— «(Ту + “jo 14 + —— T +....... ) 
Ay? Ду“ 
Ay" Ау” 2 
19 TA + 560 T 4 ......... ) ( 
A 2 2 
— a^ CAT, 2 2 + AT 4.2 + м2 т 2,4 T ...... ) 


=Q. 


- «(Туу + 


ӘТ 
Further, Or = «(Ту + Туу), (3) 


so that 
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At Ax? At Ay? 
Т, — «Тут -- «Ту + (e — а ) Та + (es — aE) Та + (4) 





2 12 
+O(H)=0. 
The leading term in the truncation error is given by 
sa а 2 за a 2 
ба аудит (5-12) T 4. 
(5 15) 4 SU 713) tn 


If s = 1/6, the above term vanishes. Thus, the scheme should be capable of 
achieving fourth-order accuracy. 


8.3 Program TWDIF is easily modified to apply the Mitchell-Griffith scheme 
given by (8.8) and (8.9). The listing of the program is given later. Running the 
program for the values of s(= sz = sy) close to the theoretical stability limit of 
s < 0.5, the following solution errors are obtained for tmaz = 0.24 x 10° secs. 








Az\s= 0.5 0.55 0.6 0.7 
0.2 0.063 0.0724 0.0868 1.088 
0.1 0.0135 0.6828 0.33 x 10° 





These results clearly show that the scheme is unstable for s > 0.5. 


To validate the findings in Problem 8.2, the program is run for s = 0.5 and s— 
1/6 and for different mesh sizes. The computed solution errors are as follows, 
for tmar = 0.24 x 10? secs. 








Ах, Ду = 02 0.1 0.05 
s=0.5 0.063 0.01349 0.003167 
s=1/6 0.66x10-4  0.366x1075 0.21 x 107° 





A rate of convergence of about 4 is evident when s = 1/6 thus validating the 


findings of Problem 8.2. 
Modifications to TWDIF for Problem 8.3 


The changes made to TWDIF are as follows. Now array B is not needed 
and lines 36 to 42, 46 to 49, 75 to 78, 86, 87 are deleted. ME, GAM and BET 
are not required and not read in (line 12). Lines 93 to 161 are replaced by the 
following: 


DO 21 K = 2,NYN 
2,NX 


єз 
e 
Мә 
IB 
cy 
II 
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21 R(K,J)=T(K,J)+SY*(T(K-1,J) -2.*T(K,J) + T(K*1,J)) 
DO 22 К = 2,NYN 
DO 22 J = 2,NX 

22 T(K,J)=R(K,J) 


С 
С SOLVE FOR T(N*1), EQN 8.9. 
C 
DO 23 К = 2,NYN 
DO 23 J = 2,NXN 
23 R(K,J)=T(K,J)+SX*(T(K,J-1) -2.*T(K,J) + T(K,J*1)) 
DO 24 К = 2,NYN 
DO 24 J = 2,NXN 
24 T(K,J)=R(K, J) 
С 


8.4 а) The three-dimensional equivalent of the ADI scheme (8.14) and (8.15) 
is given by 


* т 
Dc E 


At/3 Q x P; Tika «ууу к == a, Lil. = 0 5 (1) 
т T* 
һы J k,l * жж 
Ang. а, Les Tyas — ply Tihs аа. (2) 
n+i 
TR B 17k _ gQ L Т І, me L n+l 
Mo а, Lu Tiki OylyyT - G L. ye = 9 - (3) 


At/3 
These equations may also be written in an algorithmic form as in (8.14) and 
(8.15). 


Carrying out a von Neumann stability analysis, we can arrive at an amplifi- 
cation factor for each step. As in (8.16) the amplification factor for the entire 
scheme is given by the product of those for the individual steps. 


Thus we have from (1) (2) and (3), 
T СЕ — sy sin? 0,/2 — s, іп? ы?) 


3/4 + s, sin’ 0, /2 
s. Ее — s, sin? 0,/2 — s, іп? 0,/2 
3/4 + s, sin? 0,/2 4) 
(25 — s, sin? 0,/2 — s, sin? 6,/2 
3/4 + s, віп? 0,/2 i 
To check stability, consider the worst case, ie. let sin2 0,72 = sin2 6,/2 = 


sin? 0,/2 = 1 and s, = Sy = 8, = s. 


Then we have, 
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1—8s/3\° 

Е Тм е 5 
2 (ез) 9) 
It is easily seen that |G| < 1 for s < 1.5. 


Hence the ADI scheme, for this application, 15 stable for Sz, Sy, s; < 1.5. 


b) The three-dimensional equivalent of the approximate factorisation 


scheme (8.23) and (8.24) is 
(1 — В.А. аа) (1 - BAtayLyy) (1 — BAto Li) АТУ | = (6) 
At(azL; + а, [уу + aLr) Tika . 


Carrying out the von Neumann analysis we have 
. 2 z . 2 б; 22% 
1 + 485; sin > 1448s, sin > 1+ 485, sin > (6-1) 


(7) 
— we (4s, sin? fz + 48, sin? = + 48, sin? %) : 


To check stability let s, = s, = s; = s, and sin 0, /2 = sin 6,/2 = sin 0,/2 = 1. 


Then 
12s 


— СЕТТІ (8) 


so that the scheme is unconditionally stable if B > 0.5. 


8.5 Modification of the program TWDIF to implement the ADI scheme (8.14 
and 8.15) involves many changes. For example, the RHS is to be calculated 
twice and noting that (8.14 and 8.15) are written for T itself rather than the 
correction AT, the left hand side terms near the boundaries must be modified 
and the nature of the boundary conditions requires that they be imposed after 
every sweep. 


A modified version of TWDIF is developed and the changes made are listed 
below. The modified program is written to be applicable to Problems 8.7 and 
8.12 as well. 


The computed solution errors for the ADI method for the test case of Table 
8.2 are as follows. 


s з шы e ш кызы ы = = = 


Ac, Лу = 0.2 0.1 0.05 


M 
s — 0.5 0.02878 0.0066 0.00157 
8 =. 1.0 0.0266 0.00648 0.00157 
s = 5.0 0.01939 0.00244 0.00127 


M 
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Thus we observe that the solution error, for a given value of s, is almost the 
same as for the approximate factorisation scheme (Table 8.2). 


Considering their efficiencies, the ADI method involves the calculation of RHS 
twice and is less efficient for this problem. 


Modifications to TWDIF for Problems 8.5, 8.7 and 8.12 


Line 93, i.e. the call to REDIF is replaced by: 


С 
SSY=1.-SY 
SYY=SY*0.5 
C 
DO 221 J=2,NXN 
DO 221 K=2,NYN 
С 
C FOR PROBLEMS 8.5, 8.7 AND 8.12 
С 


R(K, J) =EMX (2) * (SYY* (T(K-1, J) +T(K+1, J) )+SSY*T(K,J)) 

1 + EMX(1)*(SYY*(T(K-1,J-1) *T(K*1, 7-1) ) *SSY*T(K,J-1)) 

2 + EMX(3) *(SYY*(T(K-1,J*1) *T(K*1,J*1)) *SSY*T(K,J*1)) 
221 CONTINUE 


Lines 106 to 108 are replaced by 
IF(IBC .EQ. 1)RRT(JM) = RRT(JM) - B(4,JM)*T(K,NX) 


Line 118 is replaced by 
20 T(K,J)= DDT(JM) 


The following lines are inserted after line 119 of TWDIF. 


C 
C TRIDIAGONAL SYSTEMS IN THE Y-DIRECTION 
C 
5ХХ-0.5ж5Х 
55Хх1.-5Х 
DO 222 J=2,NXN 
рО 222 K=2,NYN 
С 
C FOR PROBLEMS 8.5, 8.7 AND 8.12 
С 


R(K,J)=EMY (2) *(SXX*(T(K, J-1)+T(K, J+1) )+SSX*T(K,J)) 

1 + EMY(1)*(SXX*(T(K-1,J-1)+T(K-1, J+1) )+SSX*T(K-1,J)) 

2 + EMY(3)*(SXX*(T(K+1, 7-1) +T(K+1, J+1) )+SSX*T(K+1,J)) 
222 CONTINUE 


Line 131 1s deleted and line 145 1s replaced by 
23 T(K,J)= DDT(KM) 
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8.6 On running TWDIF for s, = sy = 0.5, 1.5 with Dirichlet boundary 


conditions (i.e. IBC = 1), the following solution errors are obtained for t = 
24,000 sec. and a = 1 x 107°. 


8:3) Ат, Ду Casel Case2 Case 3 Case 4 Case 5 





0.5 0.2 0.0288 0.2161 0.0234 0.0312 0.00059 
0.1 0.0066 0.0471 0.0063 0.0067 0.00003 
0.05 0.0016 0.011 0.00156 0.00158 0.000002 

1.5 0.2 0.0234 0.5758 0.0304 0.0379 0.00661 
0.1 0.0063 0.1314 0.0035 0.0071 0.00036 
0.05 0.0016 0.0303 0.00139 0.00160 0.000021 





Тһе parameters for the various cases are given іп the following table. 





Parameters 





Casel ME=1, FDM, у = 0, 8 = 0.5 

Case2 2LFI, FDM, 420,8 = 1.0 

Case 3  3LFI, FDM, y = 0.5, B = 1.0 

Case 4 (Crank - Nicolson ) ME =2, FEM, у = 0,8 = 0.5 
Case 5 (Crank - Nicolson ) МЕ-2, 6 = 1/12, y = 0,8 = 0.5 





It is indicated in Sect. 8.3.2 that the Crank-Nicolson finite difference and fi- 
nite element schemes and the 3L FI finite-difference schemes have second-order 
truncation errors, but the two-level scheme 2LF I has first-order truncation er- 
ror. However, with ó = 1/12, the Crank-Nicolson scheme has a fouth-order 
truncation error. The computed errors shown above for s — 0.5 and 1.5 clearly 
follow the truncation errors of the schemes. Тһе schemes exhibit their second 
order accuracy (rate of convergence of 2) and as expected the FEM scheme 
with 6 = 1/12 shows a fourth-order accuracy. It is also seen that in general 
(with the exception of the Crank-Nicolson FDM scheme) the schemes have a 
lower accuracy when s — 1.5. 


Comparing TWDIF with Scheme 8.7 (see Problem 8.3) we find that the former 
is more accurate, but the computed errors are of the same order of magnitude 
for a given value of s. 


8.7 Ав pointed out earlier the program developed for Problem 8.5 has the 
option to implement the ADI-FEM scheme (8.35 and 8.36) and the parameter 
setting is ME -2. Running the program with ó = 1/6, the following solution 
errors are obtained. The test case is the one shown in Table 8.2. 
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Ат, Ау = 0.2 0.1 0.05 
s=0.5 0.000098 0.0000054 0.00000032 
s=1.0 0.004535 0.000088 0.00000519 
5=9.0 0.03029 0.00354 0.000209 


Comparing the accuracy with the ADI-FDM and the approximate factorisation 
schemes (Table 8.2), the present scheme exhibits superior accuracy. The rate 
of convergence is greater than 4 but errors grow with increasing s. 


8.8 The scheme (8.43 and 8.44) with y = 0 and f = 0.5 will reduce to 


n+1 


AT 
M, & M, 2" = О.ба (м, @ L,, + M, 9 Ly | (т + ne) (1) 





1.е. м, 69 M,—0.5aAt(M, C9 Erz + M, @ Lyy) T 





(2) 
= м, (9 М, + 0.5= At( M, @ Lir + M, 9 5] Tps 
Following the ADI splitting as in (8.33) and (8.34), 
(м. - 0.5a At Las) (м, - 0.ба At ы) TE 
(3) 
- (Ns жезл Ee) (ы, 0502 Lp) 
Now consider the operator (M, — 0.5о At L,,), 
M, = (6,1 — 26,6) so that M.T = (1+ Az?6L,,)T . (4) 
Hence (3) can be written as 
і — (0.5a At — M L — (0.5aAt — UM Т?! 
(5) 


= [ + (0.5aAt + M [ + (0.5aAt + SAP Dik 


which is equivalent to the scheme given in Problem 8.8. This can be checked 
by eliminating Тӯ, and writing the two as a single equation. 


8.9 Modification required in the program TWDIF to replace ATX, , by ап 
analytic solution at tn+1/2, i.e. from (8.41), is again straightforward and is 
indicated in the following listing. 


The solution errors computed when 8; = s, = 1 are as follows (shown as 
Case A). Also given in the table are the errors when АТ x, is calculated 
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analytically at tp41, shown as Case В. In these computations the values of the 
various parameters were t = 24,000 sec., a = 1x ТО S ces. 105: 





Az, Ау Саз А Case В 





0.2 0.3556 0.0560 
0.1 0.0877 0.00817 
0.05 0.0221 0.00166 





Comparing the errors with those in Table 8.2, we find that the scheme (8.9) 
is of lower accuracy. This is not unexpected in view of the discussion before 


(8.48). 
Modifications to TWDIF for Problem 8.9 


Insert after line 91: 
ТЕАС1 = EXP(DIM*(TIM+0 .5*DTIM)) - EXP (DIM*TIM) 


Line 108 is replaced by: 
IF(IBC .EQ. 1)RRT(JM) = RRT(JM) + B(4,JM)* 80 .*SIY(K)*TFAC1 


8.10 A closer look at TWDIF shows that when IBC = 2, the required Neu- 
mann conditions are imposed. The computed solution errors with ІВС = 2 
and s, = sy = 0.5, t = 24,000 sec., a = 1 x 10^? are as follows. The values 
of the parameters for different cases , like Case 1, Case 2 etc., are identical to 
those employed in Problem 8.6 and have been tabulated in the discussion of 
the same problem. 

MM IIECEIC—C————— Ë не 


8:,5у Дт, Ду Casel Case2 Case 3 Case4 Case 5 


8S SEE SS 


0.5 0.2 0.1398 0.9319 0.116 0.1464 0.00282 
0.1 0.0353 0.2256 0.0312 0.033 0.00016 
0.05 0.0078 0.0545 0.00773 0.00783 0.000008 

1.5 0.2 0.1119 0.0208 0.0683 0.1751 0.03112 
0.1 0.031 0.589 0.0185 0.0346 0.00178 
0.05 0.0077 0.1467 0.00696 0.00793 0.00011 


a pS LLLIIiaqáa!iD L0 —— - 


The trends are similar to that observed in Table 8.3. The rms errors are now 
larger than when Dirichlet conditions are applied. The largest errors occur near 
the boundaries where Neumann conditions are imposed. 


8.11 The program developed for Problem 8.3 has already an option to force 
Neumann boundary conditions (see listing). The computed errors for s; = sy = 
0.5, t = 24, 000 sec., a = 1 x 107° are 
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Ал, Лу = 0.2 0.1 0.05 
Еттог 0.2909 0.0658 0.01566 


Comparing the errors with those for the Dirichlet boundary conditions (see 
Problem 8.3), we find that the implementation of the Neumann conditions 
causes the solution accuracy to deteriorate. The convergence rate is however 
preserved. Similar trends are observed with the implicit schemes (see Problem 


8.10). 


8.12 The program developed for Problem 8.5 has the option to impose the 
Neumann conditions at the specified boundaries (Table 8.3) and the parameter 
setting is IBC -2. The solution errors computed with the Neumann conditions 
at z = 1 and y = 1 boundaries (for s = 1.0) are 


Az, Ду = 0.2 0.1 0.05 


Error 0.1294 0.03199 0.0077 


These errors are very close to those obtained with the approximate factorisation 


scheme (Table 8.3). 


8.13 The ‘ADI’ program developed in Problem 8.5 is easily modified to imple- 
ment the method of fractional steps (8.73 and 8.74). The basic changes consist 
of replacing the statements calculating the RHS and are indicated in the listing 
provided later. 


The modified program (Case A) when run for the conditions of Table 8.2 pro- 
duces the following solution errors. In the table the solution error given by 
TWDIF is shown as Case В. The following parameter values are set: t = 24, 000 
sec; = 15€ 1079, 8, = 3) 6 1,7 0,9 05, 


Ar,Ay Саз" А Case B 


0.2 0.02666 0.02682 
0.1 0.00648 0.00648 
0.05 0.00157 0.00157 


Тһе solution error behaviour indicates that the scheme 1s second-order accurate 


for fixed s. 


Modifications to the code used in Problem 8.5 for Problems 8.13 and 8.14 
An integer [P R14 is read in and it acts as a switch between Problems 8.13 
and 8.14. When IJPR14 is 1 the scheme for Problem 8.14 is operative. Ап 
additional array BN of the same dimension as T'N is defined. The lines before 
the statement- DO 12 J= 1,NX are modified as 


10 
11 
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T(K,J) = 80.%(Ү(К) - SIX(J)*SIY(K)) + 20. 
IF(IPRi4 .EQ. 0) GO TO 10 

IF(J .EQ. NX) BN(O-T(K,J) 

CONTINUE 

CONTINUE 

IF(IBC .EQ. 1)GOTO 14 


Lines between the statements DO 221 J=2,NXN and 60 TO 37 are replaced by 


221 


225 


226 
227 


228 
229 


19 


DO 221 K=2,NYN 
ROC, J)=T(K,J)+0.5*SX*(T(K, Ј-1)+Т(К, J+1)-2.*T(K, J)) 
CONTINUE 


TRIDIAGONAL SYSTEMS IN THE X-DIRECTION 


TIM = TIM + DTIM*0.5 

TFAC = EXP(DIM*TIM) 

IF(IBC .EQ. 2)GOTO 226 

DO 225 K = 1,NY 

T(K,NX) = 20. + 80.*(Y(K) - TFAC*SIY(K)) 
ІЕ(ІРЕ14 .EQ. 1) BN(K)=T(K,NX) 


T(NY,K) = 20. + 80.*(1. - TFAC*SIY (K) ) 
GOTO 229 

DO 227 J = 1,NX 

T(NYS,J) = T(NYP,J) + 160.*DY 

DO 228 К = 1,NYS 

T(K,NXS) = T(K,NXP) 

CONTINUE 


DO 21 К = 2,NYN 

pO 19 J = 2,NXN 

ІМ = 1-1 

B(2,JM) = ЕМХ(1) - CCXA 

B(3,JM) = EMX(2) + 2.*CCXA 

B(4,JM) = ЕМХ(3) - CCXA 

RRT(JM) = R(K,J) 

IF(IBC .EQ. 1)DT(K,NX) = - 80.*SIY(K)*TFAC 
IF(IBC .EQ. 1)RRT(JM) = RRT(JM) - B(4,JM) *T(K, NX) 
IF(IBC .EQ. 1 .OR. IBC .EQ. 2)RRT(1) = 

1  RRT(1) - B(2,1)*T(K, 1) 

IF(IBC .EQ. 2)DT(K,NXS) = DT(K,NXP) 

IF(IBC .EQ. 2)B(2,JM) = B(2,JM) + B(4,JM) 


B(4,JM) = 0. 
IF(IBC .Е0. 1) B(2,1)=0.0 
B(2,1)=0.0 


CALL BANFAC(B,NXPP, 1) 
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20 
21 


222 


25 


26 
27 


28 
29 


22 
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CALL BANSOL(RRT,DDT,B,NXPP,1) 


DO 20 J = 2,NXN 


JM = J - 1 
T(K,J)= DDT(JM) 
CONTINUE 


TRIDIAGONAL SYSTEMS IN THE Y-DIRECTION 


DO 222 J=2,NXN 

DO 222 K=2,NYN 

R(K,J)=T(K,J)+0.5*SY* (T(K-1,J)4+T(K+1,J)-2.*T(K,J)) 
IF(IPR14 .EQ. 1. AND. J.EQ.NXN) THEN 

R(K, J)=BN(K)+0.5*SY* (BN (K-1)+BN (K+1)-2.*BN(K)) 
ENDIF 

CONTINUE 


IF(IBC .Е0. 1)DT(NY,NX) = 
IF(IBC .EQ. 2)DT(NYS,NXS) 
ТІМ = ТІМ + DTIM*0.5 
TFAC = EXP(DIM*TIM) 
IF(IBC .EQ. 2)GOTO 26 

DO 25 K = 1,NY 

T(K,NX) = 20. + 80.*(Y(K) - TFAC*SIY(K)) 

IF(IPR14 .EQ. 1) BN(K)=T(K,NX) 

T(NY,K) = 20. + 80.*(1. - TFAC*SIY(K)) 

GOTO 29 

DO 27 J = 1,NX 

T(NYS,J) = T(NYP,J) + 160.*DY 

DO 28 K = 1,NYS 

T(K,NXS) = T(K,NXP) 

CONTINUE 

NN-NX 

IF(IPR14 .EQ. 0) NN-NXN 

DO 24 J = 2,NN 

DO 22 K = 2,NYN 

KM = K - 1 

В 2,KM) = ЕМҮ(1) - CCYA 

B(3,KM) = EMY(2) + 2.*CCYA 

B(4,KM) = EMY(3) - CCYA 

RRT(KM) = R(K,J) 

IF(IBC .EQ. 1)DT(NY,J) = - 80.*SIX(J)*TFAC 

IF(IBC .EQ. 1)RRT(KM) = RRT(KM) - B(4,KM)* T(NY,J) 
IF(IBC .EQ. 1 .OR. IBC .EQ. 2)RRT(1) = 
1 RRT(1) - B(2,1)* T(1,J) 

IF(IBC .EQ. 2)DT(NYS,J) = DT(NYP,J) 


80.*TFAC 
DT (NYP , NXP) 
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IF(IBC .EQ. 2)B(2,KM) = B(2,KM) * B(4,KM) 


IF(IBC .EQ. 2) RRT(KM) = RRT(KM) - B(4, KM) *160.*DY 


B(4,KM) = O. 
B(2,1)20.0 


CALL BANFAC(B,NYPP, 1) 
CALL BANSOL(RRT,DDT,B,NYPP, 1) 


INCREMENT T 


DO 23 K = 2,NYN 
KM = K - 1 
DT(K,J) = DDT(KM) 
23 T(K,J) = DDT(KM) 
24 CONTINUE 
GAM = GAMH 
BET = BETH 
IF(TIM .GE. TMCH)GOTO 30 
IF(TIM .LE. TMAX)GOTO 18 
GOTO 37 
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8.14 The code developed for Problem 8.14 has the option to implement the 
Dirichlet condition on x=1, ie. ІРВ14-1. On running the modified program 


the following rms solution errors were obtained. 





Ат, Ay solution error 





0.2 0.02877 
0.1 0.00661 
0.05 0.00157 





The solution errors are very close to those observed for the conventional method 


of fractional steps. 
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Linear Convection-Dominated Problems 


91 Неге we consider the truncation error for the Lax- Wendroff scheme for 
the convection equation. The governing equation is 


and the Lax-Wendroff scheme is given by 


ATR 





Expanding every term in (2) as a Taylor series about T? and rearranging the 
terms we have 


At 2 At At? Az? 
Ti + ul, + Tt - — Т, + та + Rr Тоз 
2 2 б 6 
(3) 
At? 


2 
qp E us ол А Аз? Та +O(H)=0. 


24 ' 
The modified equation is obtained by eliminating the time derivatives Тү, T3 
etc. Recall in Chapter 4 the governing equation itself was used to eliminate 
the time derivatives, thus arriving at an approximate expression for the trun- 
cation error. In order to obtain an exact expression for the truncation error, 
equation (3) which is the actual differential equation solved as a consequence 
of discretisation, should be used to replace the time derivatives. 








lo carry out this process of elimination it is useful to construct a table of = 
coefficients (see Table 1). The technique is self-explanatory. The coefficients P = 7 
of terms of the modified equation are obtained by adding the terms іп each — ys Ж Б 
column. Thus, we have а pes Ес: 
oka Ее D Sa |v 
а 2 2 д}2 u^ At 2 2 A49 xe qe S ТН ЕСІМ Ес 
T;  uT; + (Ат — u^ Att )T s + (Ал“-ч“АҒУ)-О(Н)-0. (4) U к. NT Pol at al ча 
6 8 со | © © a E 

Ф — = 40 
. кн NM a <j Бк D 
Noting that uAt/Azr = С, (4) reduces to оо |° р ы, Ses 
и Ат? 5 uC’ , 3 j mls d м а M — 
T, + uT, + 8 (1- C')T,s + — Az (1— С%9Т,4-ЕО(Н) «0, 9| p H =; REEL 
Of | S5 | (| SO] a 





as required. 
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Table 1. continued. 9.2 The von Neumann stability analysis of the Crank-Nicolson mass operator 
scheme is carried out as follows. 


The given scheme is 


(6 — 0.25C)T7? + (1—26)T7 + (6 + 0.25C)T YY = 
(6 4-0.25C)T7 , + (1 — 26)T7 + (6 — 0.256)Т 1. 


Following the procedure outlined before, we have the amplification factor 


1 — 26 + 26 cos 0 — 0.5 iC sin 0 


"15 259% cos0 + 0.5 iC sinÓ ` (2) 


G 


сч 
= 
— 
м 
X 
«1 
p 
«1 
= 
I 


Carrying out the analysis, we find that |G| < 1.0 for all values of C and ó i.e. 
scheme (1) is unconditionally stable. 


9.3 Неге the Crank-Nicolson mass operator scheme is applied to the problem 
of a convecting sine wave. 


1.00 


4 
Vit 
0.75 ry 
| 
Т i 
1 
0.50 exact 
х --І3-- present 
_ 2 
2 a} SN 0. 
7 : Mp š i Fi 
ж 
и x 3 Sig | % 4 [E 
о міз Ф | 
сс с З %| ° 3 = anA Mm Ú 
O eo e (o со — без D 0 oor Hunnis aspe anml c. — au ^r ЯН, 
y — — = Sd PCM Mo c . ШООЛА Usta LI ТТЫ ¥ ГҮН 
ele |& з a| | 8] S \ 
s| ` |` БЕЛЕСІ ы 
"e гч ға < s Ü 
a е 5 Ч x -0.25 
а e = 5| 4) 5) $9 0.00 0.25 0.50 0.75 1.00 
99| М “М. e AQ}; «| ™~ š š L X А . 
25 [5 4 СЕЕ | 4 
Of I - 3| 1| sol à Fig.1. Temperature profiles at t—9 sec. 





For this application the program TRAN is used with M E = 4 and JPR = 1. 
Further, the mass operator 6 is given by (1/6 + С?/12) (see Table 9.4) where 
C is the Courant number. Also a = s = 0. 


The computed temperature profile at t = 9 sec. is shown in Fig.1. In comparison 
with results shown in Figs. 9.2, 9.3 and 9.4 we observe that the dissipative 
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and dispersive errors are drastically reduced, thus indicating that the Crank- 
Nicolson mass operator scheme 15 very accurate. 


9.4 Fourier analysis is applied to the one-dimensional convection equation. 
Introducing the Fourier representation for the computational solution in the 
form 


oo 
а е (1) 
to each of the schemes indicated, we get after simplification: 


i) Upwind difference scheme: 


оо (2) 
Gm = 1+ C[cos(mAz) — 1] +С sin(mAz) , (3) 
1 
СІ, =((1 + С cos(mAz) — С)? + C? sin (mAz))? (4) 
1 
2 


= (1-400 = C)sin*(mae/2))* Ç 


| -С sn(mAz) 


MET $$ . 
d сва C[cos(mAz) — 1] 


ii) Lax-Wendroff scheme: 


Tet) = 0.5C(TA4, — T ,) + 0.5C" (T7 , — 277 — Т), (5) 
Gm = 1 — 20° sin? (mAz/2) — iC sin(mAz) , (6) 
СІ, = (1 + sint (mAz/2)4C2(C2 —1))? , (7) 
koela -С sin(mAz) (8) 


1 — 2C? sin? (mAz/2) - 


iii) Crank-Nicolson scheme: 


—0.25ТР%! + T?*! + 0.2577 = 0.25С1) у + T? —0.25СТД. (9) 


Carrying out the analysis as before, 
1 — 0.5: C sin(mAz) 


С-------------- 
1+0.5 C sin(mAz) ' 


ie 1.0, (11) 


-С sin(m Az) 


fn (ORC sin(maz)) ` (12) 
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On calculating |G|m and m for various schemes and various values of 


mAz(= Om), we have for C = 0.8, Ar = 0.5 





Scheme m/n = 0.05 025 0.5 0.75 1.0 
ыо у= a a ee 7 7 x 
Upwind Gm/Ger 0.998 0.952 0.825 0.674 0.6 

Lax-Wen. Gm/Ger 1.0 0.99 0.877 0.573 0.280 





CN Gin/Ger 1.0 1.0 1.0 1.0 1.0 
exact Фар -9.0 -45.0 -900 -1350 -180.0 

"———— TJ————————————— = 
Upwind Om -7.2 -36.46 -75.96 -122.88 -180 
Lax-Wen. Ọm -7.19 -34.85 -65.77 -99.29 -180 
CN фт -7.16 -31.59 -43.6 -31.59 0 





The upwind scheme has greater ‘dissipation error’ for 0,, /z = 0.25 and 0.5 when 
compared with the Lax-Wendroff scheme. This trend is reversed when 0m /т 
is 0.75 and 1.0. The phase error is always larger for the Lax-Wendroff scheme. 
These features explain the smooth but highly diffused profile obtained with 
the upwind scheme. The Lax-Wendroff scheme, though having a lower overall 
dissipation error, has substantial phase error explaining the larger amplitude 
of the primary wave (Fig. 9.3) which lags the theoretical. The Crank-Nicolson 
scheme has no dissipation error but has substantial phase errors, explaining the 


highly oscillatory profile (Fig. 9.4). 
9.5 Неге the modified equation is applied to the upwind difference scheme, 
Lax-Wendroff scheme and Crank-Nicolson finite-difference scheme. 
Following the procedure of Problem 9.1, we have: 
1) Upwind Difference scheme: 
п+1 п п 
At Ат 


A Taylor series expansion of the terms in the above equation gives, 





-0. (1) 


At A At? Ar? 
Pei ae p. yd тыз 
AP u Az 
тр! д Ти + 000) = 0. 


Constructing the table and eliminating the time derivatives, we have, 








OT OT “Ат OT “Ат? О 
Ot 3277? (1-С) + 6 (1 — 3C + 2C Ia; | 
u Az OT _ 
+ ———(6C€? — 1207 + 7C —1]—— + O(H)=0. 
24 Ox4 


96 СТЕР Solutions Manual: Chapter 9 


li) Lax-Wendroff scheme: 
The modified equation has already been derived in Problem 9.1. 


ii) Crank-Nicolson finite difference scheme: 


n п п-+Е1 
Ape — (5 +T! J 





At 2 s (4) 


A Taylor series expansion of the terms in (4) gives, 


At u А 
“ә ін + 244 Tiz + nm 


uA 
4 


T, + u T, + T3 


At? At? 
Tite + s Дт” СЕ, да + Шы Т 





з, (5) 


At 
+ At Ac? Тз + — Ta, + O(H) = 0. 


Constructing the table and eliminating the time derivatives as before, we have 





Т Т, 
ttu «( 12 6 


3 At? 
кода) Тз +О(Н) = 0, or 


Т, Tul + 





Да? (C? 
— (S +1) ms «oun =0. 


Thus the results shown in Table 9.1 are confirmed. 
Discussion: 


The upwind difference scheme has a first-order dissipation and a second-order 
dispersion error. The Lax-Wendroff scheme has a second order dispersion and 
third order dissipation error. Thus one expects a larger amplitude (ie. lesser 
diffusion of the initial sine wave) for the Lax-Wendroff scheme. For the upwind 
scheme, the larger dissipation error is the dominant one, thus producing a 
'clean' but highly damped profile. For the Crank-Nicolson scheme, the dissipa- 
tion errors are of magnitude third-order or higher while there is a second-order 
dispersion error. This explains the highly oscillatory solution obtained. 


9.6 Тһе construction of a generalised, three level scheme for the one- 
dimensional equation can be implemented as follows. 


The general three-level scheme is given by 


(L+yAT"t! —4AT? 


b *u(1—)L,T? -uBL.T?" =0. (1) 


` every term of (1) in a Taylor series about 17 and simplifying уге 
lave, 
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1 At? up At? 
T, + uT, + At (5 + ») Tu + uBAt Tis + a bn + ші Tas 


uA? 1 AC up AC 
Бс слали е = ар е. 
6 Т, + (5 +7) 12 A T 6 


2 
$ лнур + O(H) =0. 


Te. (2) 


Replacing the time derivatives in (2) by space derivatives, using, 


ИЕ; PET _ Q8 
Тез d sau mud do.u ss dg 
"—-—— _ „4 
Тз„=—и° Ты, Та = и" T, etc, we have 


1 
T, +uT, +u? At{(0.5+ y) - 8}Т + Аё (= + 0.58)Т, z 
+O(H)=0. 


(3) 


A von Neumann analysis of (1) gives the following expression for the amplifi- 
cation factor G, 


G^[(1 + y) 4 iCB sin 6] — G[(1-- 25) - iC(1— B)sin6] +y = 0. (4) 


The scheme is found to be unconditionally stable when 8 = 1/2 + y. 


Computational experiment: The program TRAN has been modified to incor- 
porate the above three-level discretisation. The important changes are in the 
calculation of the left and the right hand sides of the tridiagonal equation which 
now becomes 


—0.5С8 TRY + (1 + у)Т"+! + 0.5 СВ ТА 


5 

= 0.5С(1- 997) 1 + (1--2y)T; — 0.5 C(1 — 0)T;* – ат, 5) 
The listing provided below shows the parts of the code undergoing important 
changes. 

The modified program was run for the case of a propagating sine wave. The 
truncation error analysis indicates that for minimum dissipation and dispersion 
errors 8 = 1/3 and у < -1/6. This choice of B and y gives an oscillatory 
profile since there is no physical dissipation in the problem. To provide some 
dissipation for stability purposes 8 was set to be 0.4. The resulting temperature 
profile is shown іп Fig. 1. 


Modifications to TRAN for Problem 9.6 


1. In the READ statement (line 10) variables TST, BET and САМ are read 
in instead of $, Q and EM. 
2. Lines 25 to 31, and 54 to 60 are deleted. Lines 61 to 66 are replaced by, 
C 
12 АА -0.5*C*BET 
BB 1.0 * GAM 
CC = -АА 
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1.0 


0.5 r— p-- present = 
ехасі Kum 

A TEN. 

і М 

m / ІМ 
"паі hf ы ыы Fa TE 

LO PEB tpi; ТЫГЕ ТҮ J 

i ҸҸ 





-0.5 


0.00 0.25 0.50 X 0.75 1.00 


Fig. 1. Temperature profile for the propagating sine wave given by the modified scheme. 


AE = 0.5жСж(1. -BET) 
BE = 1. + 2.*GAM 
CE = -AE 


3. Тһе following lines are inserted after line 87: 


TIM = TST - 2.*DT 
DU 110 І - 1,2 
TIM = TIM + DT 


CALL EXSOL(JPR,JMAX,X,T, TEX, NEX, DX,U, ALPH, TIM,EL) 
DO 99 J = 2,JMAP 
IF(I .EQ. 1)TOL(J) = TEX(J) 


99 CONTINUE 
110 CONTINUE 


4. Lines 89 to 138 are replaced by: 
DO 26 N = 1,NTIM 
С TRIDIAGONAL SYSTEM FOR IMPLICIT SCHEMES 


TIM = TIM + DT 
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21 CONTINUE 
DO 22 J = 2,JMAP 


JM = 1-1 
A(1,JM) = 0.0 
A(2,JM) = АА 
A(3,JM) = BB 
A(4,JM) = CC 


R(JM) = AE*T(JM) + BE*T(J) + CE*T(J+1) - GAM*TOL(J) 
22 CONTINUE 

R(1) = R(1) - A(2,1)*T(1) 
24 A(2,1) = O. 

A(4,JMAF) = 0. 


9.7 For the steady convection-diffusion equation, the centred and the upwind 
difference schemes are given by 


1.00 A 
/ 
0.75 р —£=- Ах-02 | 
n A Ax=0.1 / 
0.50 О Ах=0.05 / 
—— exact / Т 
0.25 / 
Iz 
A x д? 
0.00 ЭСЯООЭСКӨСОӨКЭӨО А 
N 
N / 
-0.25 ` 
-0.50 
0.00 0.25 0.50 0.75 Т 1.00 


Fig.1. Temperature profile given by centred difference scheme. 


-(1--0.5 Всп) я + 21, -(1-0.5 Ree )T 541 zd). (1) 
and 


-(1- Reeu)Tj-a + 2(1 + 0.5 Reti) T; - T;+1 zu. (2) 


Any of the programs like TRAN can be modified to apply these schemes. The 
major change in the program involves: 





100 СТЕР Solutions Manual: Chapter 9 
1.00 A 
0.75 rii 
fil 
Ц == Axe / |! 
— f^- = / іі 
0.50 Ax=0.1 / t 
--Ө-- Ах-0.05 | ii 
/ ii 
exact / Ж 
/ 
0.25 И; 
p 2 
2. „Д 
0.00p0606060066069€— 
-0.25 
0.00 0.25 0.50 0.75 X 1.00 


Fig.2. Temperature profile given by upwind difference scheme. 





Variable Centred Scheme Upwind Scheme 





ADS —(14+0.5*RCELL) -— (14 RCELL) 
CD-  -(1-05*RCELL) -1 
BD= 2 2*(1 + 0.5* RCELL) 





The resulting temperature distribution are shown in the Figs. 1 and 2 (for 


ш/о = 20). 
9.8 Neumann boundary conditions for the steady convective-diffusion equa- 
tion are introduced in this problem. 


For the exact solution given by (9.44), the temperature gradient g at the exit 
(i.e. 2 = 1) 18 


s= (5). D 


The program developed for Problem 9.7 is modified to force the Neumann 
condition at the exit. 


For centred differencing, imposition of Neumann condition at the exit gives, 


Tnx+ı — TNx-1 2. 
2Ar cM (2) 
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1.00 


0.75 


exact 
Dirichlet Condition 
Neumann Condition 


0.50 


0.25 





-0.25 


0.00 0.25 0.50 0.75 x 1.00 


Fig.1. Temperature profile given by centred difference scheme. 





1 25 exact / 

i j 
—413-- Dirichlet Condition / 

T 1.00 —Z#-- Neumann Condition A 





0.00 0.25 0.50 0.75 X 1.00 


Fig.2. Temperature profile given by upwind difference scheme. 
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and the algorithm for the steady convection-diffusion equation at the exit is 


Імх-і - Гмх-- Тмх-і-2Гмх + Tn x-1 


9 Ат S Ar? а. (3) 
Substituting (2) in (3) and simplifying, we have 
1 
Тых-і- Tnx = gAx(» Есеп T (4) 
For the two-point upwind scheme, we have at exit, 
–Тух-1 + Тих = Ат. (5) 


The results obtained on running the modified program are shown in Figs. 1 
and 2 (where u/a = 5.0). 


1.50 


1.25 A 


О Centred Differencing 











d A Upwind Differencing AN 
0.75 exact 
0.50 
0.25 
0.00 easier n So кило ML M еа 
-0.25 
0.00 0.25 0.50 0.75 1.00 


Fig.3. Temperature profile given by different schemes for Az = 0.01. 


With centred differencing the computed temperature profile follows the exact 
trend. But at т = 1 the temperature value is underpredicted. This is a direct 
consequence of the fact that a gradient is prescribed at т = 1. With upwind 
differencing the accuracy is inferior with an overprediction of temperature at 
qoe 


А sufficiently fine mesh should be able to give a more satisfactory agreement 
with the exact solution. That this is in fact true is exhibited when a fine mesh 
( Ал = 0.01) is employed (Fig. 3). For this computation a u/a of 20 was used. 
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For this value of u/a, coarse grids give a solution which is quite inaccurate. 
But with a fine grid the agreement is good. 


9.9 This problem considers five-point discretisation of first and second spatial 
derivatives 


dT 1 


Let EE = Ay e(T;+a — doe) T b(T541 — ss) T aT; } : (1) 
Expanding the terms as a Taylor series about Ту, we have 
Р As 
= = — (aT L T, Ax(4c + 25) + ——T,3(16¢ + 26)} + O(H), (2) 
dz Ат 6 
so that a = 0, 4с + 2b = 1 or b + 2c = 1/2. (3) 
Similarly let 
dT 1 
Fe = даз UR %1;-2) + (Туна + Ту-а) + 47;) (4) 
dT 1 Ат? 
апа — == [(2e + 2f + g)T + B Je + 2f) 
A 4 
+ Sy Tes (32e +2/)] + O(H) , 
so that 2e+2f+g=0,8e+2f=2ord4de+f=1. (6) 


The scheme to be developed, therefore, has the form 


Ат [c(Tj42 — Tj-2) + b(Tj+1 — Туа) + aT;] (t 


u 


а 
ier [є(Ту+ә + Tj-2) + Ру + Тул) + gT;] = 0. 
Substituting expressions (4) and (5) in (7) and simplifying, we have 
Шла pe 
uAz? a Az’ (8) 


== 6 Т,з(16с + 2b) + 





T 4(32e + 2f) + O(H) =0. 





24 
The truncation error is minimised when 16c + 2b = 0 and 32e + 2f = 0. 
Consequently, с = —1/12, b = 2/3, a = 0, e = —1/12, f = 4/3 and g = —5/2 


and the scheme is 

и T;42 < T;-2 2 | 

DET ee ey Ты 2 

Ат | 12 Ш 3 jn - Tja) 
Q - Тә + 1729 ‘i 4(T;+1 + Tj1) " Š 


Е T;| = 0. 
Az? 12 3 2 ; 


Substituting сец for uAr/a, and simplifying, we get 
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(1+ Reeu)Ti-2 +(—8 Rea — 16)Т7; 1 + 307; + (SReeu — 16)T541 


+(- Еси + 1)Tj42 = 0, 9) 


which is a pentadiagonal system. 


(It may be noted that the coefficients a, b, c d, ... are identical to the ones given 
in Tables 3.1 and 3.2). 


Writing a program to invert (9) and running it, the following solution errors 
are obtained. The solution errors given by the centred three point differences 
in Problem 9.7 are also given for comparison. 


Ат Problem 9.9 Problem 9.7 


0.1 0.196x107? 0.412 x 107! 
0.05 0.926 x 107? 0.973 x 107? 


Thus the five-point scheme (Problem 9.9) is seen to be more accurate than the 
centred three-point scheme (9.7), particularly as the grid is refined. 


9.10 a) А modified equation for the Lax- Wendroff scheme is applied to the 
one-dimensional transport equation. 
The scheme is 
n+l "vpn n тп n о __ п n 
Т, 1j Pi оре, к (== 27; D) =o. 


At “£ Ar Ar? (1) 


with a* = a + 0.5 uC Az . (2) 


Expanding every term of (1) in a Taylor series about Т? and simplifying we 
have 





. A At? At Аз? 
Т, "E ul. — & Ts + > Í ds | i8 + “Sg 14 T и, 
Ат T NOI 2 Ax: (9) 
120474574 (S Ta) ii (Sat) а 


Constructing the tables and eliminating the time derivatives, 


A 2 
uar а-сЭ|та 





T, + uT; — adi,— {Cada = 
(4) 





2u 12 5 





Са? A Az? C Az? 
| а T QAT u T (C* -1)} Ta + OU) = 9, 


as given in Table 9.3. 


b) The modified equation for the Crank-Nicolson scheme is applied to the 
one-dimensional transport equation. 
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The scheme is 
-u + {uL, —alL,z,} [zem UR (5) 
Expanding every term of (5) as а Taylor series, we get 
T, + uT; + AMT t "n, — adis + x + iy, 
= aT dr мал Ts Hu A Ta t — fs. (6) 
_ р ip чара = Tes E үр + O(H) = 0 


From the table, the modified equation is found to be 
uzr? ( = a Ax? 








Т. + Т, – оТ, + = (1+ T 3 — (1--3C^)T,4-0O(H) 


2 (7) 


Ee 
as given in Table 9.3. 


911 a)  Ananalysis of the explicit four-point upwind scheme is carried out. 


Тһе scheme 1s 





for pa 
1 1 (4) _ r __ 
At + {uly — aL I Í Ty = 0 (1) 
Т.у — Т; 
ad ec s 3A ( 58T a Toe ы (2) 
Expanding terms in a Taylor series and simplifying, we have 
At At? ДР Ax? 
T; + —Ty + —T, + — Ta + uT, + = (05 — q)T,s 
2 6 24 3 (3) 
uq Az? a Az 
6 T4 — aTr: — — 4 +O(H)=0. 


From the tables, we have 
uC Az 
2 


САт C? Az? 
2 та + OH) - 0. 








A 2 
T buses d T; Ë Б T (0.5 д) - aC Art 


(4) 








Comparing (4) with (9.73) (i.e. for the four-point upwind Crank-Nicolson 
scheme) we find that we now have a first-order dissipation error (uC Az/2 Tzr). 
Hence, highly diffused profiles are to be expected. There does not seem to be 
any optimal value of q except 4 = 0.5 where the dispersion error is reduced 
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somewhat. It can be seen that the dissipation error has arisen from the first- 
order discretisation of T; and that there is no compensating term in LO T. 


b) von Neumann síability analysis: 


Following the procedure outlined before, for the scheme (1), we obtain 














G =1 + A sin 0 + ugar [cos 20 — 4 cos 0 
+ :(— sin 20 + 4sin 0)| + 2 0-1 
Ax? ? 
or 
2 
С = 14+ & (cos 28 — 4cos@) + 2 (cos — 1) 
3 cell (6) 


t i[Csin6 + C4 C sin 20 + 4sin 0)]. 


For the conditions of Table 9.6 i.e. К.п = 1.0, q = 0.5, the scheme is found to 
be stable for all C < 0.58. 


c) Computational check: 


Running TRAN with Rew = 1.0, C = 0.25, we have the following result for 
the problem of the propagation of the temperature front: 


r= -0.4 -0.2 +0 0.2 0.4 0.6 
Г= 0.9756 0.9401 0.872 0.762 0.609 0.431 


r= 0.8 1.0 1.2 1.4 1.6 rms error 
T= 0.258 0.123 0.040 0.005 -0.003 0.0098 


The results are identical to those in Table 9.6. 


9.12 Modification of TRAN is made to implement the three-level fully implicit 
scheme, which is given by Table 9.3. 
3 Ar 1 AT? 


EG ZEN em J = n+l ‚ 
2 At 2 At + {ulz aL, ST; 0 (1) 





Using L,T; = (Ti+ == Т;-1)/2 Ат апа La; == (Т +1 p 24; + Т;-—1)/ Аз? 


equation (1) reduces to 


? 








(2) 
3 | 2aAt 
2 (5 + =) тен, (аш = =) Qui pue 1тт-1 

T 2 


which can be written as, 
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0.75 
0.50 O 3 LEVEL IMPL 
A CNFD 
0.25 © CN FEM 
exact 
0.00 
0 1 x 2 


Fig.1. Temperature profile with Reen = 2. 





1.25 
A: ET wr w fa’ А АУА 
| OO abba aA 
1 Y» 
0.75 EE 
EN 
/ ` 
0.50 О S3LEVELIMPL LA 
A QONFD C 
“АУ 
0.25 © СМҒЕМ "t 
exact I 
0.00 OO YS 
0 | x 2 


Fig.2. Temperature profile with Reen = 5. 
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Thus the coefficients АА, ВВ, СС and R used in TRAN can Бе modified {о 
suit (3). 
Running the modified version of TRAN for the temperature front problem with 


JMAX = 41, NTIM- 10, C = 1, Ат = 0.1, etc, the following solution errors 
are obtained, for different cell Reynolds number values. 


Есей 1 2 5 50 100 


3 Level 0.0263 0.0366 0.0588 0.115 0.123 
implicit 

CN-FDM 0.00387 0.00994 0.0286 0.100 0111 

CN-FEM 0.00108 0.00331 0.0110 0.067 0.0783 


The temperature profiles computed are shown in the Figs.1 and 2. Again Ree = 
2 seems to be the limiting cell Reynolds number for an oscillation-free solution. 


9.13 An analysis of Crank-Nicolson mass operator formulation is carried out 
for the two-dimensional transport equation to see if optimal values of 6, and 
ду can be obtained. 


The governing equation is 


Ti + ul, + vf, —az T;;— ay Ty, =0. (1) 


The corresponding scheme is 


nil — тп 
Т, Г, 


шы At 


= |-u M, @ L,—vM,GL, 








(2) 


Tv E T. 
= 


+ „М, Q Lrs + ay M, @ Lyy| | 


Truncation error analysis: 


For this analysis it is convenient to expand the terms about en Е Expanding 


the LHS of (2) we have, 
натты. 
M, @ M; 4 —————- 
: At 


At 26, Ay? 
= Г, + 7g d zn — 


6, Ax? е 
20, Ат 
Troy 9 Tizze xs O(H) . 


Carrying out the same expansion for the RHS, we have 
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Ал? 2ud, Ay? 
-uM, @ L:T = —ul,-— - 7 Tzs — - S z Т.уу + О(Н) , (4) 
vây? 206, Ax? 
— M, @ L,T = —-vl, — 3 Тууу — ° Ту: + O(H), (5) 
Ат? 2 
а: M, 69 Dar qm G. m + Arry 114 + «д, Ду Tap + О(Н) 5 (6) 
Ау? b 
а) М; 69 Lo T — Ay Т + Oy 15 Туи + убу Ax Tay -+ О(Н) : (7) 


It remains to replace the time derivatives іп (3) by spatial derivatives. For this 


we have, 


Т, = -ч1,- if + а: Теғ + Qy Tyy , (8) 

Тил = —Ul grr — Ulery + My T4 + Qy 1522 , (9) 

Туу = -Ч1)у — 9Тууу + а= 1,2,2 + Qy TA ; (10) 
2 д д? д? 

Т, = -uz (Te) = а + aspal Te) + aya aO 


= u^T,, + 2uv Joy UT — ua, Tree — 2vay Тууу 


- Ооо. Trry — 2udyTryy + o? T 4 + «Тл Jr 2о,0)1,2,2 


д д д? 8? 
Titt = -ua (Tit) = 05, Т EE 9 5-2 (Ти) T ay gga Tu) 
cw quic UP Eu — BU Ul ey — duc Tay (12) 


+ 3u^a,T,4 4- 30° а, Туа + биға. 1,3, + биоауТ, „з 
+ З(а,и? + @®*)Т ә 2 + О(Н) А 
Consequently, from (3) to (7), we have (after simplification) 
Ti + ul, + vT, — aT; — AyTyy = 








m (eam = «Аз! + ud, лг?) 
6 б 
+ Тууу (а i un is уди) 
кты, (esa) +n, (wt) 
ы (= - 6.0: Az2 + x e 


— ЕЯ (оа, дё) =з (чуде) 


At? 
— 1:2 (ay + а) 79 + О(Н) ; 
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The truncation error is of O( At?, Az?, Ay’). 

For the choice 6, = 6, = 1/6, (13) reduces to 
T, + ul, + vT, — oz; Tz, — ayTyy = 


u? At? v? At? МА 5 
Juss (=) + Тууу ( + Тогу (« >) (14) 


2 


At 
+ Туй (ағ) + O(H) : 
It is seen from (13) and (14) that the dispersion errors are minimised when 
60g = О 
von Neumann analysis: 


The analysis is carried out on the split formulation given by (9.88) and (9.89) 
1.е. 


|М, + 0.5At(uL, — a, Ler) 477, = At(RHS)”, (15) 
[M, + 0.5At(vLy — oy Ly ДАТ = ATF, . (16) 


where the values 8 = 0.5 апа y = 0 have been substituted and 
RHS = —-[My, 69 (uL, — Ode) + M, @ (vL, — ау Lu) (17) 


On substituting for AT, from (2), in (1), we have 


м, + 0.5At(uL, — а.) м, + 0.5At(vL, — ayy) ATH 
(18) 
= — At м, Ф (uL, = Og Li) + M, 69 (vL, = ауы) Т š 


Introducing the Fourier representation for various operators like, 
Ler = (cos b; — 1)/Az^, L, = isin0,/Az, M, = 1 + 26,(cos6, —1), 
we find the amplification matrix to be given by the following equation: 
L + (1 — cos 0, )ís; — 26,} + 10.5С„ sin Д 
1 + (1 — cos 6,){sy — 26,} + 20.5C, sin | (G — 1) 
(19) 
== = E + 26,(cos 6, — 1)) s (1 — cos 0,) + 10.5С„ sin 0, } 


+ {1+ 26,(cos 0, — 1)}{sy(1 — cos Ө,) + 10.5C, sin6,)|. 
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Solving the above equation for G with the aid of a computer program we find 
that the scheme is unconditionally stable for the parameters chosen (i.e.y = 0 
and 6 = 0.5). This is in agreement with the observation made in the text ( see 


Vol. 1, p.318). 


9.14 A comparison is made of the AF-FDM, AF-4PU and AF-FEM schemes 
for the thermal entry problem. 


Running THERM for the conditions indicated the following results are ob- 
tained. 


AF-FDM, ME=1 


11 x 11 grid 21 x 21 grid 
Niter rms rms Niter rms rms 
RHS error RHS error 
Parameters (x10°) (x10°) 


a)y=0,6=05 112 0.86 0.018 177 0.95 0.0068 


b)y=0,8=1 32 0.84 0.018 86 0.94 0.0068 

с) у= 0.55,0-1 20 0.85 0.018 45 0.94 0.0068 
AF-4PU 

а) у= 0,0-0.5 37 0.82 0.036 66 0.71 0.024 

Ы) у= 0,2-1 34 0.90 0.036 78 0.99 0.024 

c)y=05,8=1 23 0.89 0.036 47 0.99 0.024 


AF-FEM, ME=3 


а) у= 0,8 = 0.5  unst unst 
b)y=0,8=1 74 0.95 0.0026 190 0.98 0.00083 
c)y20.5,8—1 39 0.96 0.0026 97 0.95 0.00083 


In the above table Nj;,,, are the number of iterations to converge, rms RHS is 
the solution error and unst denotes that the scheme was unstable. Considering 
only the number of iterations to converge, we find that AF-FDM with y = 0.5 
and 8 = 1.0 is the fastest. Further, AF-FDM is more accurate than the AF-4PU 
(see the rms-error). If accuracy is the only consideration, AF-FEM performs 
the best. 


9.15 Тһе computational efficiencies of the various schemes is compared. 
Defining the computational efficiency as, 


n = 1/ (rms error) (No. of iterations to converge) . 


We have for various schemes considered in Problem 9.14, 
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AF-FDM AF- 4PU AF- FEM 
11х11 21х21 11х11 21х21 11х11 21х21 





y=). b= О 05 0.84 0.74 0.64 unstable unstable 
420,821 1.74 1.72 0.812 0.54 5.12 6.38 
s= (5 =). 27 3.29 1.2 0.9 9.71 12.39 





Thus considering the efficiency, the best scheme happens to be the AF-FEM 
with y = 0.5 and 8 = 1 for both coarse and fine grids. Table 9.12 shows that 
this scheme also produces the most accurate solution for the centre-line. If one 
considers the programming complexity in addition, then the scheme AF-FDM 
with y = 0.5 and 8 = 1 is a good choice. 


CTFD Solutions Manual: Chapter 10 


Nonlinear Convection-Dominated Problems 


10.1 A truncation error analysis of (10.20) is carried out as follows. 


Equation (10.20) can be written as 





Auer (4) y,,n, n1 n n+1 
M, a +0.5 LZ (uu )—05vL (uy +u; )-—0. (1) 


Writing the term LY nun+t1) as и" DY unt) L и" LÉ и" and expanding the 
terms in (1) as а Taylor series about и? gives 
up untu, + (At/2)uu + 0.5 u^ At Utr — vus, + (At2/6)u 
+ (At? /4)и”" ин 4- (6 Дт? - 0.5/ At) Utrr tu” ((1 — 29)/6) Ат? ит» 
+ (At? /24)uja + (и" At? /12)u,3, + (6 At( Ах? /2) (2) 
— 0.5v(At?/2))u,2,2 + 0.5u" ((1 — 24)/6)( Ат? At/2)u,_3 
+ ((и%/6) Ла? – vâz? /12) иа =0. 


Eliminating the time-derivatives using the governing equations, one has 


ut + UU, — uu, Í + u" ((и” At)? /12 — 6Az? + (1 — 29) Ла? /6)u,a 


+O(H)=0. (9) 


It is of interest to note that to this order the modified equation is identical to 


(3). 
For the dispersion errors to be minimum we require, 
^ At)? 1—2 


which gives (10.26 and 10.27) for 4 = 0 and 6 = 0 respectively. 


10.2 Modification of BURG to implement the Crank-Nicolson discretisation 
of (10.1) is carried out as follows, 
Au ди" ашт д?и" 


Әм"?! 
--- Burt! —— bu" —0.5„——у— — 0.6y—— = 0. 1 
EU + 0.5u az + 0.5u Az 0.5v 275 би 522 (1) 
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Linearising (u*T1Ə9un+1/8x) as (urt! Ou" /Ox) + (u"du"t! /Ax) — (и"ди"/Әг) 


and simplifying, leads to 











n--1 n 2,,n+1 
ut 0,5 даа gg Ag ym Dt _ u лен 
T дт Or? 
и + 0.5} 2 


Now, discretising ди /Ox and д?и/Әх? and simplifying, we have, 
(-0.25Cu” — 0.5 в) + (1 + 0.25C(u2,, — u®_)+s)urt 


+ (0.25Cu" — 0.5 suit) = (0.55)и? 1 + (1— з)и? + (0.5)? |, 8) 


where C = At/Az and s = vAt/Az? . Equation (3) is the tridiagonal equation 


to be solved. 


Modification to the program BURG to implement (3) consists of replacing the 


lines 121-129 by FORTRAN statements equivalent to (3). 


1.50 






1.00 
Г] ӛсһете 10.2 
0.50 A BURG 
exact 
0.00 


-1.0 0.0 1. 
0 х 2.0 


Fig. 1. Shock profile given by the modified scheme. 


On running the modified program for the conditions associated with Table 10.5 
we get the shock profile shown in Fig. 1 at t=2. The various conditions Baposed 
were fee = 100, а = 0.001, Ax = At = 0.1, s = 0.1. Since the cell Reynolds 
number is high, the scheme needs extra artificial dissipation to produce a good 
shock profile. The modified scheme, with SA = 0.25 gave a 25% overshoot near 
the shock and an rms error of 0.0809. But with SA = 0.5, the overshoot is 
negligible (as seen in Fig. 1) and the rms error is 0.0098. In comparison, the 
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basic scheme BURG gives rms errors of 0.0204 and 0.0322 with SA = 0.25 (Fig. 
1) and 0.5 respectively. 

When the computations are carried out for larger number of time steps, it 
is found that the shock travels right to the downstream boundary. With the 
Dirichlet type boundary conditions on the downstream boundary large over- 
shoots are observed. A gradient boundary condition may give a different result. 
For instance, if the condition, (du/dz) = 0 is imposed it will result in the 
shock being swept out of the domain giving a uniform flow and a very low rms 


error, 


10.3 Program BURG is readily modified to implement the optimal values of 
6 and 4,1.е., 


1.50 
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k. 
` 
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0.00 Hee rey 





-2.0 -1.0 0.0 1.0 X 2.0 


Fig. 1. Shock profile obtained with optimum values of é and q, Reet; = 3.33 . 


1 (ujAt/ Az)? 
борі = 6 12 (1) 
АҢ Ах} 
and фы = 0.5 + с» . (2) 


4 


The changes in the code consist of: 
1. Introducing statements for (1) and (2) after line 118. 


2. Then calculating the terms depending on 6 and q. This requires lines 49-62 
to be moved and placed after the statements for (1) and (2). 


The program is run for ME = 4, Reeu = 3.33. After NTIM= 1, and all the 
other conditions as in Table 10.4 the computed results are as follows: rms error 
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= 0.00553 for 6 given by (1) and rms error = 0.00826 for 4 given by (2). These 
results are plotted in Fig.1. 


It is observed that the shock profiles for the two cases are in very good agree- 
ment with the exact solution and the computed rms error is also small. Thus, 
for the cell Reynolds number considered џ.е. 3.33, the optimum values of ó and 
4 are seen to be effective. 


1.5 


1.0 Q АЛУЫНМКЯ ҚУЫҚ ҺАЛАЛЛА АА 
" = ota а. -“а LE SE Li т FE ч 


ШЕ. үу МІ та AREE 
| 
l 
i 
0.5 | 
— i3-- $ set | 
A qse 
сы S IAN 
0.0 ERR “руну 
-2.0 -1.0 0.0 1.0 2.0 


X 
Fig.2. Shock profile obtained with optimum values of ё and q, Reen = 100.0 . 


Running the same program with the optimum value of ó or 4 at Ree = 100 
leads to a different conclusion (see Fig.2). Then the rms error for the ó-adjusted 
and the g-adjusted schemes are 0.18065 and 0.096319. Тһе former scheme 1s 
seen to give a very oscillatory solution indicating that the optimum value of 6 
is effective only for low cell Reynolds numbers. 


10.4 A general three-level scheme to compute steady-state shock solutions can 
be developed as follows. The governing equation 1s 


PN 
Ot | Oc ~ Кат? — (1) 


with F = 0.5(u? — и). 


Introducing a three-level scheme into (1), we have 
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(1+ y)Au™t! Ди" OF" Әр" 
а ы tep 
At TUA FA 8) Әт we Ox 3 
ĝu” Ән ( ) 
Linearising F”+! we get, F"+1 = (и" — 0.5)u"^*! — 0.5(u")? . (4) 


Substituting (4) in (3) and rearranging, one gets 
(-8С(и8-1-0.5)- bs yurti + {(1+ 7) + 28sYu 
+ (8C(u5,, — 0.5) — Bs yugi = (1 + 27)и? 
— 0.5(1 — 8)C( J+ = Еу 1) does В)з(и7_1 = 2u; + u$41) 
+ 0.258C ((u2,4)" — Cae — үи?! 


(5) 





-2.0 -1.0 0.0 Х 1.0 2.0 
Fig.1. Shock profile obtained with the modified scheme. 


Program BURG is modified to implement (5) and the structure of the program 
is similar to that of TRAN in Chapter 9. It may also be pointed out that now 
the exact solution is given by (10.36). 


The modified program is run for the conditions corresponding to Table 10.9 
and the computed rms errors are as follows. The solution is assumed to have 
converged when the rms change is less than 1 x 1079. In the table N; denotes 
the number of iterations to converge and the following parameters are used: 


Az = 0.1, At = 0.1, С 21,5 = 0.2, а = 0.02 Reen = 5, SA = 0.25. 
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Scheme М; rms error 





y—0,8-10 46 0.02927 
420,8-05 41 0.02927 
4—0.5,8 =10 42 0.02927 





The different schemes used take about the same number of iterations to con- 
verge, except when y = 0.5, 8 = 1. The computed steady-state shock profiles 
(Fig. 1) are identical for the three schemes since uj — up. Further, the grid 
points within the shock profile contribute most to the solution error. 


10.5 To code the nonuniform discretisation (10.30-10.32) the scheme devel- 
oped for Problem 9.7 serves as a good starting point. In the present case it is to 
be noted that Ree is a function of u and hence varies from point to point. The 
relevant part of the listing is indicated below. Running the modified program 
leads to the results shown in Table 10.6 and 10.7 being obtained. 


| NOTE: The expression (rz — 1)/rz in (10.33) should be corrected 
as (r? — 1)/r,]. 


Modifications to TRAN for Problem 10.5 


1. The READ statements are changed to read only ME, JMAX, ALPH, 
UBALPH (i.e. u/a), RX. 
2. Lines 18 to 29 are replaced by, 


RXX-1./RX 

JMAP = JMAX - 1 

JMAF = JMAX - 2 

XINT=0.0 

XEND=1.0 
DELX=(XEND-XINT) / (JMAX-1) 


С 


CALCULATE Х 


X (JMAX) =XEND 
DX-0.03 
DO 30 J=JMAP,1,-1 
IF(J.EQ.JMAP) THEN 
DXX-DX 
ELSE 
DXX=DXX*RXX 
ENDIF 

30 Х(Ј) =Х(Ј+1) -DXX 


C CALCULATION OF RCELL 
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U=UBALPH*ALPH 
RCELL = U*DELX/ALPH 


. Lines 54 to 147 are replaced by: 


14 


15 


SET BOUNDARY CONDITIONS 


Т(1) = 0. 
Т(ЈМАХ) = 1. 
SET UP THE TRIDIAGONAL SYSTEM OF EQUATIONS 


А(1,1) = 0. 
А(2,1) = 0. 
А(3,1) = BD 
A(4,1) = CD 
A(5,1) = 0. 


DO 14 J = 2,JMAP 
DELX=X (J+1)-X (J) 
RCELL = U*DELX/ALPH 


AD = -(1.*0.5*RCELL*RX) 
CD=0.5 ж RXX ж RCELL - RXX 
Вр=0 .5*RCELL*RXX* (RX-1.)+1.+RXX 


IM=J-1 

A(1,JM) = 0. 

A(2,JM) = AD 

A(3,JM) = BD 

A(4,JM) = CD 

A(5,JM) = 0. 

D(JM) = 0. 

CONTINUE 

р(1) = -AD*T(1) 

D(JMAF) = - CD*T(JMAX) 


CALL BANFAC(A, JMAF, 1) 
CALL BANSOL(D,DUM,A, JMAF , 1) 


DO 15 J = 2,JMAP 
T(J) = DUM(J-1) 
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C 

C OBTAIN EXACT SOLUTION AND COMPARE 
C 


DENM-EXP(UBALPH)-1.0 
DO 118 Jz1,JMAX 
118 TE(J)s(EXP(UBALPH*X(J))-1.0) /DENM 


10.6 The scheme incorporating a four-point upwind discretisation on a nonuni- 
form grid for the modified Burgers! equation 1s derived as follows. Let 


ОР” Куе Кы) 


2m ЕЕЕ +aF;_ + bF;_ í + cF; + ав, (1) 


where Az = т; — 231, Tz = (z;j+íi — <))/Ат and ry = (z;-1 — z;-2)/Az . 
Expanding every term іп (1) as a Taylor series about Ту, we have 


a+tb+c+d=0, (2) 
—a(l+r,)—b+dr,=0, (3) 
a(14 rif? -b4 dr (r,—1)/Az = 0. (4) 


Solving these equations we have, 


is 4а iles )/A« | / nia en) 
ТЕ (5 Bey Arona ЛЕТ А) ra 


с = (а — r Az — d(1 + r1 + r, + ")/a кт), 


where 4 has been treated аз the ‘free parameter’. Incorporating the above 
discretisation for ӘҒ/Әт into (10.39) the following quadri-diagonal equation is 
obtained, 


(atu - б)лё) Au; 


1 25 
млн кн ис эш йш 
š: ( cor DA; Aia 708) - c = ) uy 
2 
( + At(u; — 0.5)c + =) Au; (5) 


1 28 
АҚчда-05/Ма47----------- | 
( (шуы Ji T (1 + г.) Ат г:(1 + —]) дауа 


= RHS; 


where ЕН 5 is given by 
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Ев — Fj 
= аң а) + aF;_2 + 6Е;-1 + eF; ғары) 


“44-1 u игл] 
Y on Tr t 
The above equation is solved using subroutines BANFAC and BANSOL as 
before. The listing of the program developed to do this is given below. 


(6) 


Modifications to BURG for Problem 10.6. 


1. Extra arrays UP, UR and F, each with the same dimension as U are intro- 
duced and the variables RX, DXMIN, GAM, BET and DFREE are read. 


2. Lines 19 to 21 are deleted and lines 47 to 67 are replaced by: 

JHLF=(JMAX+1)/2 
X (JHLF)=0.0 
DO 33 J=JHLF,JMAP 
DX-DX*RX 
IF(J.EQ.JHLF) DX-DXMIN 
X(J*1)2X(J) *DX 

33 X(JMAX-J)=-X(J+1) 


C INITIALISE U AND EVALUATE UEX 


CALL EXSH(JMAX,X,U,UE, DX, XMAX, ALPH, TIMAX) 


3. Lines 70 and 71, 86 to 114 are deleted. The following lines are inserted after 
84. 


DO 27 N = 1,NTIM 
DO 271 J21,JMAX 
271 F(J):0.5*U(J)*(U(J)-1.0) 


4. Lines 116 to 172 are replaced by: 


TRIDIAGONAL SYSTEM FOR IMPLICIT SCHEMES 


Су G OQ 


21 IF(MQ .EQ. 1)DIM = U(1) 
DO 22 J = 2,JMAP 
DX=X (J)-X(J-1) 
RX=(X(J+1)-X C3) ) /DX 
RX12(X(J-1) -X(J-2)) /DX 
S=ALPH*DT/DX/DX 
RXP=RX + 1. 
RXM=RX - 1. 
RXMD=RXM/DX 
RXPD=1./(RXP*DX) 
RXMP=(RX -1.)/(RX+1.) 
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С) 


22 


23 


24 


25 


26 
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AA = -(RXMD + RX*RX*DFREE + RX*DFREE)/(RX1*(RX1+1)) 
BB= (RXMD + RX*RX*DFREE +(RX1+1.)*RX*DFREE) /RX1 
CC=-DFREE - AA - BB 


FLUX = (F(J+1)-F(J-1)) ж RXPD 
IF(J.NE.2) 


1 FLUX = FLUX + AA*F(J-2) + BB*F(J-1) 
1 + CC*F(J) *DFREE*F(J41) 


SEC-2.*S*(U(JM)/RXP - U(J)/RX + U(J*1) /RX/RXP) 


DIM = U(1) 
IF(JM .NE. 1)DIM = U(JM-1) 
А(1,2М) = AA*(DIM - 0.5)*DT 


A(2,JM) = (BB - RXPD)*DT*(U(J-1)-0.5) - 2.*S/RXP 
A(3,JM) = 1. + DT*(U(J)-0.5)*CC + 2.*S/RX 

A(4,JM) = DT*(U(J+1)-0.5)*(DFREE+RXPD) - 2.*S/RX/RXP 
IF(ME .NE. 5 )GOTO 22 

A(2,JM) = A(2,JM) - 0.5*SA*U(JM) 

A(3,JM) = A(3,JM) + SA*U(J) 

A(4, JM) A(4,JM) - O.5*SA*U(J*1) 

R(JM) = - DT*FLUX + SEC 


REDUCE A TO TRIDIAGONAL FORM 


DO 23 JM = 3,JMAF 

JMM = JM- 1 

DUM = A(1,JM)/A(2, JMM) 

A(2,JM) = A(2,JM) - A(3,JMM) *DUM 


A(3,JM) = A(3,JM) - A(4,JMM) *DUM 
A(1,JM) = 0. 

R(JM) = R(JM) - R(JMM)*DUM 
CONTINUE 

A(1,1) = O. 

А(1,2) = O. 

А(2,1) = 0. 


A(4,JMAF) = 0. 


CALL BANFAC(A, JMAF, 1) 
CALL BANSOL(R,UD,A, JMAF, 1) 


DO 26 J = 2,JMAP 

IF(ME .GT. 3)UR(J) = U(J)+UD(J-1) 
CONTINUE 

SUM=0.0 


37 


28 
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DO 37 J=2,JMAP 
SUM=SUM + (UR(J)-U(J))**2 

UC J) =UR(J) 
RMS=SQRT (SUM/ (AMP-1.)) 
WRITE(*,*)N,RMS 

IF(RMS .LT. 1E-06) GO TO 227 
CONTINUE 

CONTINUE 


WRITE(6, 28) TIMAX 

FORMAT(? FINAL SOLUTION, 
WRITE(6,16) (X(J) , J=1, JMAX) 
WRITE(6,17) (UCJ) , J=1, JMAX) 
WRITE(6,29) (UE(J) , J=1, JMAX) 


ТІМ =’ ,F5.3) 


29 FORMAT(’? UE=’,12F6.3) 
COMPUTE THE EXACT SOLUTION AND COMPARE. 


С 


555 


30 


31 


SUM = 0. 

DO 30 J = 2,JMAP 
ARGG=0.25*X(J) /ALPH 
EXPA=EXP (ARGG) 
EXPP=1/EXPA 


TANHH=(EXPA - EXPP)/(EXPA + EXPP) 
0Е(Ј)=0.5ж(1. - TANHH) 

SUM = SUM + (U(J) - UE(J))**2 
RMS = SQRT(SUM/(AMP-1.)) 
WRITE(6,31) RMS 

ҒОВМАТ(? RMS ERR=’ ,E12.5) 

DO 555 J=1, JMAX 

WRITE(6 ,666) J,X(J) ,U(J) ,UE(J) 
ҒОВМАТ(2Х,14,2Х,Е12.5,2Х,Е12.5,2Х,Е12.5) 
STOP 

END 
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The program was run for various values of r, and the free parameter d. The 
rms solution errors are shown below. 
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re \d= -1.0 -0.1 0.0 0.1 
1.0 0.02258 0.00616 0.00552 0.02006 
г, \ а= -0.68 -0.5 0.0 0.1 
1.1 0.01032 0.21968 0.42782 0.42962 
г, \ а= -1.0 -0.5 0.0 0.5 
12 0.60309 0.010528 0.51973 0.48565 
r,\d= -1.0 -0.5 0.0 0.5 
1.3 0.62795 0.14526 0.59168 0.54862 


Thus , we see that the scheme behaviour is very sensitive to the choice of r, 
and the free parameter d. In the computations various values of the parameter 
d were tested. In the above table results for values of d producing the minimum 
error for the particular value of r, and those for values of d where instability 
is observed, have been given. 


10.7 The modifications required in program SHOCK to implement the ex- 
plicit four-point upwind scheme are shown in the listing. 


The modified program is run for conditions of Fig. 10.9, i.e. shock pressure 
ratio = 1.5, №; = 101 etc. The artificial viscosity parameter, ENL, was set to 
be 0.25. A value 4 = 0.5 is seen to produce а better shock profile than any lower 
value (say 0.2). Considering the higher values, q=1.0 produces an oscillatory 
solution whereas q=1.5 makes the scheme unstable for these conditions. 


Modifications to SHOCK for Problem 10.7 
The parameter QU P is read in and lines 101 to 113 are deleted. Lines 94 to 96 
are replaced by, 


С 
DO 13 K = 1,3 
Q(J,K) = Q(J,K) - O.5*DTR*(F(J41,K) - F(J-1,K)) 
IF(J-2 .GT. 0) THEN 
QCJ, K)2QCJ, K) -(QQUP*XDTR/3.) *(F(J-2,K) -3. *F(J-1,K) 
1 *3.*F(J,K)-F(J*1,K)) 
ENDIF 
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0.40 0.50 0.60 


Fig. 1. Shock profile given by the four-point upwind scheme. 


10.8 Introducing the mass operator into (10.44), we obtain 


At TL ті ті Tr 
M, Q Да"! = -0.25-1- (Fey T FR) + (FRY Ра). (1) 


Carrying out the linearisation as in (10.45), we have 


At A 
(s = 0255 Aj.) Да?! F (1 ES 26) I Aq; + 


At п (2) 


= RHS of (10.46). 


The Jacobian A is given by, 


0 1 0 
A= 0.5(y — 8) (3—y)u pers (3) 
u(—yE/ p+ (y -1)) yE/p—0.5(q—1)9u* тш 


Now, (2) is block tridiagonal and the Thomas algorithm (Sect. 6.2.5) 1s used 
to solve it. The program SHOCK is modified accordingly and the listing of 
the modified version is given below. This version of SHOCK calls the subrou- 
tine BLTRI which solves the block tridiagonal equations. The listing of this 
subroutine is given under Problem 6.6. 
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The program is run to compute the propagation of the shock of strength 1.5 for 
different values of 6. It was found that without artificial viscosity the scheme 
gives post-shock oscillations and hence the value of ENL is set equal to 0.5 in 
all calculations. 


0.4 





0.0 NVR алас ас ас ауа 


0.4 0.5 X 0.6 
Fig.1. Shock profile given by the modified SHOCK program. 


It is observed that with 6 = 0, and 0.1 there are still oscillations left undamped 
(typically 10%). For 6 = .16,.2 the profile is free of oscillations and the shock 
profile is spread around 3 or 4 mesh widths. 

Modifications to SHOCK for Problem 10.8 

1. The following line is appended to the DIMENSION statement, 


18 


СУ 


19 
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AA(J,2,1)=0.5*(GAM-3.)*USQ 
AA(J,2,2)=(3.-GAM) *U(J) 
AA(J,2,3)=GMM 

AAC J ,3,1)=UCJ)*(-EE+ GMM*USQ) 
АА(7,3,23- EE-0.5*GMM*3.*USQ 
AAC J,3,3)=GAM*U(J) 

DO 18 K=1,3 

DO 18 L=1,3 

AAC J,K,L)=0.25*DTR*AA(J,K,L) 


CALCULATE THE LEFT HAND SIDE. 


NXMM-NXM - 1 


DO 19 J = 2,NXM 

JM = 1-1 

DO 19 K=1,3 

RHS(JM,K)2-0.5*DTR* (F(J+1,K)-F(J-1,K)) 
DO 19 L=1,3 
АСЈМ,К,1)= 
B(JM,K,L)z0.0 
C(JM,K,L)= + AACJ+1,K,L) 
IF(K.EQ.L) THEN 
B(JM,K,L)21.0 -2.*EM 
ACJM,K,L)-EM + A(CJM,K,L) 
C(JM,K,L)-EM + C(JM,K,L) 
ENDIF 

CONTINUE 

DO 119 K=1,3 

DO 119 L=1,3 

A(1,K,L)=0.0 


- AACJ-1,K,L) 


119 C(JM,K,L)=0.0 


1 ,AA(101,3,3),RHS(101,3) ,A(101,3,3) ,B(101,3,3) ,DQ(101,3) С 
1 ,С(101,3,3) C CALL BLTRI TO SOLVE THE BLOCK TRIDIAGONAL EQUATIONS. 
C 


2. Lines 85 to 89 are deleted and lines 93 to 114 are replaced by, 


C CALCULATE THE JACOBIANS. 
C 
DU 18 J = 1,NX 
EE-GAM*Q(J,3) /RECJ) 


CALL BLTRI(NXMM,A,B,C,RHS,DQ) 
DO 120 J=2,NXM 
DO 120 K=1,3 


120 Q(J,K)=Q(J,K) + DQ(J-1,K) 
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USQ=U(J)*UCJ) 
AA(J,1,1)=0. 
AA(J,1,2)=1. 
АА(Ј,1,3)=0. 


10.9 The conventional finite-element method applied to (10.1) differs from the 
group finite-element method only in the treatment of the term uOu/Ox. Using 
(10.51) along with Crank-Nicolson time differencing we have, 
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M nou stg d Cee re MN (ungui 1.50 
i At | 3 2 Ат 
иын ++ ш (uai 
0.5 | + 4 2 | (1) u 
| | 3 | Ar ) г 
0.5v „ 05v а 2686-64! 
tS (Чы -2ш uj) + = (шуна -uj Huja h 


Linearising terms like A"*! F"*! as АЗЕ"! + АНЕ" — An pn 
and simplifying, we obtain the tridiagonal equation: 0.50 ү 


. 0.5О n | 


— [3-- Scheme 10.9 Е 


0.5С amn | m | an oon 
jag А -— L... 
tuj (1-2+ E uats) (2) 0.00 ЗЕЕ v —TTCTTT—T— 
0.5С 

n+] т n 
и" ó + Um, + Ug -055) 

ж ( б (02, + Ошур) 0.0 1.0 X 2.0 

= би? 1 (1—26)uj + бить T 0.9C(uj41 — 2и) + Шс |, Fig. 1. Shock profile given by the conventional finite element method. 


where Uavg = (ujg1 + uj + uj-1)/3 and Сару = (uj4i — sp. 


Program BURG is modified to implement the scheme given by (2). The parts IF(ME .NE. 5 )GOTO 22 
A(2,JM) = А(2,2М) - O.5*SA*U(JM) 


of the program that require to be changed are the calculation of the RHS and 


the left hand side. The actual FORTRAN statements used and other changes A(3,JM) = А(3,ЈМ) + SA*U(J) 
A(4,JM) = A(4,JM) - 0.5ж5Аж0(7%1) 


EE | 22 R(JM) = EM*(U(J-1)4U(J41)) + (1.-2.*EM)*U(J) 
The shock profile shown in Fig. 1 was calculated by the modified scheme 1 40. 5XS* (U(J41) -2. U(J) &U(J-1)) 
incorporating the conventional finite element method for conditions of Table R(1) = R(1) - A(2,1)*U(1) 
10.5. The artificial viscosity parameter SA was set equal to 0.25. 'The rms error 
computed is 0.02121. It is observed that the shock profile is sharp, but with a 


are shown in the following listing. 














larger overshoot and undershoot than for either CN — MO or CN — FEM. 10.10 Тһе connectivity (CON) and residual operation count (RO PC) for 
the group (FEM(G)) and conventional finite element (FEM(C)) methods 

Modifications to BURG for Problem 10.9 applied to the two-dimensional Burgers’ equations with quadratic interpolation 
1. After line 29 the following statement 1s added, are shown in the table. 

С56=0.5%С/6. 

FEM(C) FEM(G) 
2. Lines 118 to 132 are replaced by, 
node CON ROPC CON ROPC 

DO 22 J = 2,JMAP 

UDIFF=U(J+1) - 061-1) (}—1,®Ё) 99 1764 15 420 

М= J- 1 (j-1,k—1) 99 1404 9 252 

IF(JM .NE. 1)DIM = U(JM-1) 

A(1,JM) = 0.5*QQ*DIM 

А(2,2М) = FM - 0.5*S - C56*UAVG + C56*UDIFF The connectivity depends on how many elements are connected to the Galerkin 

A(3,JM) = 1.0 - 2.0*ЕМ + S + C56*UDIFF node. In addition on a regular grid or when evaluating иди [дт the connectivity 


EM - 0.5*8 + C56*UAVG + C56*UDIFF 


A(4,JM) 
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will be slightly less. However it is clear that the connectivity is substantially 
reduced for the group finite element method and there is a corresponding re- 
duction in the number of operations to evaluate the residuals. 


10.11 The conventional finite element method is applied to (10.57) and (10.58) 
for the linear finite elements (A,B,C,D) in Fig.1. We find that the linear terms 
behave like the corresponding terms in the group finite element method, but 
the convective terms need special treatment. The discretisation for typical con- 


vective terms is as follows: 


j—1,k+1 jk+1 j+1,k+1 
ud 
ds 
j-1,k jk j+1,k 
ЕЯ 
КЕИШ 
К jk-1 j+1,k-1 


Fig.1. Linear finite elements. 











“бе = ve иў+н,к+19+1,&+1— Чуд, 0-а 7 Aij tian) 
zs “n [natia m uL kUj-1,k == дарыды) (1) 
Ар и СТЕ nd ш? 1 k-1Uj-lk-1 = НЕ š 
where 








t; k Uj--1,k U j-Fl,k41 Uj k+1 
J: J ; 1 ; ’ 

* И jk uj—1,k Uj—1,k-1 “сы 
ue. = — + › + ———— + —— 

J 1,k4+1 | 9 6 6 3 3 


E Uj k Uj+l,k Uj k+1 Ujk—l Uj+1,k—-1 Uj+1,k+1 
u = 4 — + — —— 4 —— а j+ — 
j+1,k | 2 4 * 712 12 24 24 | 
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" КО Ujk uj —1l,k Uj k+l Uj,k-1 Uj—1,k—1 Uj—1,k+1 
Зла) 5а T+ jp T j T wx 24 T 
š _ Ju;k , Чу+& , Чу+1&—1 , Ujk-i 
к ы | 3 te T 6 173 | 

J Ujk Uj—1,k Uj—1,k-1 Uj,k—1 
Uj—1,k-1 7 (ше е DD D T+ | ; 


A * _ 1 : +u; =e =й» 
Чука 6 Ujti,k T Чу, 7 Uj-1,k 7 Uj-lk-l 


1 
Uj+i,k-1 T Ujlk F uen) 


1 
Uj—1,k-1 + Uj-ayk + ашуун} 


I 1 
Au ka = ӨШ! + Uj41,k-1 — Wj-iyk — шыка} . 
The discretisation of оди/ду is obtained from (1) by replacing (Му, Ат) with 
(Mz, Ay), (u*,v) with (v*,u) and reversing the role and orientation of (j,k). 
The discretisation of иди/дт and vOv/Oy then follow by direct substitution. 

Equation (1) has been written deliberately in terms of и” to bring out the 
structural similarity with finite difference discretisation. Group finite element 
discretisation could be obtained from (1) by replacing u¥,, 44, with Uj+1,k+1 
and setting Ди? = 0, etc. This gives an indication of the operation count 
comparison, and hence execution time comparison, for the group and conven- 
tional finite element methods. 

Since the steady state solution is of interest, only the term, RH О 
(10.70), (10.71) has been modified. This requires changes to RHSBU; the rele- 
vant section of code replacing lines 17 to 30 is shown below. The present changes 
are invoked when ME = 4. To implement (1) in the existing RHSBU structure 
it is necessary to set CX(2) = CX(1) and CY(2) = CY(1) in TWBURG, to 
introduce UST, V ST, to set Е5(1,2) = 0 and to modify the evaluation of F 
and G, as indicated. 

The u solution and accuracy for the conventional finite element method, 
AF-CON, are compared in the following table with those for the group finite 
element method (AF-MO, 6, = б, = 1/6) for a 6x6 and an 11х11 grid. The 
conventional finite element is roughly twice as accurate and both methods are 
converging linearly with grid refinement. However the severity of the gradient 
in the x direction makes the accuracy of the solution at x=-0.20 responsible for 
most of the error. In addition the maximum gradient is effectively increasing 


as the grid is refined. 
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grid scheme x=-0.60 x=-0.20 x=0.20 x=0.60 rms 
error 

6x 6 AF-MO 1.0027 0.5231 -0.0327 -0.0252 0.0062 
бале [б 

6 x 6 AF-CON 1.0012 0.5805 -0.0328 -0.0250 0.0030 

11х11 AF-MO 0.9986 0.5271 -0.0338 -0.0250 0.0031 
ba py 1/6 

11х11 AF-CON 1.0000 0.5322 -0.0333 -0.0250 0.00155 





Modifications to Subroutine RHSBU 


DO 6 K = 2,NYP 
IF(ME .МЕ. 4)GOTO 90 

KM = К-1 

KP = K*1 

UST(1,1) = (U(K,J)*0.5*(UCK, JM) +U (KM, JM) ) *UCKM, J)) /3. 
UST(3,1) = (U(K,J)40.5*CUCK, JM) +0(КР, JM) ) UCKP , 2))/3. 
UST(1,3) = (U(K,J)+0.5*(U(K, JP)+U (KM, JP) ) -UCKM, Ј))/3. 
UST(3,3) = (U(K,J)+0.5*(U(K, JP) *U(KP, JP) ) XU(KP, ))/3. 
UST(2,1) = 0.5*(U(K,J) *0. 5*XU(K, JM) * (U(KM, J) U (KP, J))/6. 

1 + (UCKM,JM) +0(КР, 2M)) /12.) 

UST(2,3) = 0.5*(U(K,J)40. 5*U(K, JP) +(UCKM,J)+U(KP,J))/6. 

1 + (U(KM,JP) *U(CKP, JP)) /12.) 

UST(3,2) = (U(K,JP) *U(KP, JP) -U(K, JM) -U(KP, JM))/6. 
UST(1,2) = (U(K,JP)4*U(CKM, JP) -U(K, JM) -UCKM, JM) )/6. 
UST(2,2) = 0.25*CCCUCKM, JP) +0(КР, JP)) /6 .4U(K, JP)) 

1 - ((UCKM, JM) +0(КР, JM) ) /6 .*U(K, ЈМ))) 
VST(1,1) = (V(K,J)+0.5*(V(K,JM)+V (KM, JM) ) *VCKM, J)) /3. 
VST(3,1) = (V(K,J)40.5*(V(K, JM) *V(KP, JM))+V(KP,J))/3. 
VST(1,3) = (V(K,J) 40. 5*CV(K, JP)+V (KM, JP) )+V(KM,J))/3. 
VST(3,3) = (V(K,J)+0.5*(V(K,JP)+V(KP,JP))+V(KP,J))/3. 
VST(1,2) = 0.5*(V(K,J)*0. 5*V(KM, J) «(V(K, JM) *V(K , JP))/6. 

1 + (ҮСКМ, JM) *V(KM, JP))/12.) 

VST(3,2) = 0.5*(V(K,J)+0.5*V(KP,J)+(V(K,JM)+V(K,JP))/6. 

1 + (V(KP,JP)+V(KP,IJM))/12.) 

VST(2,3) = (V(KP,J)+V(KP, JP) -V(KM, J) -V(KM, JP))/6. 
VST(2,1) = (V(KP,J) *VCKP, JM) -V(KM, J) -V(KM, JM) /6. 
VST(2,2) = 0.25*CCCV(KP, JM) *V(KP, JP))/6.+V(KP,J)) 
1 - ((УСКМ, JM) *VCKM, JP))/6.+V(KM,J))) 


90 RUD = 0. 


lI 
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RVD = 0 

DO 2 N = 1,3 
NK = K - 2 + N 
DO 1 M = 1,3 
MJ = J - 2 + M 


IF(ME .NE. 4)GOTO 100 

F(1) = UST(N,M) *U(NK,MJ) 
Е(2) = UST(N,M)*V(NK,MJ) 
G(1) = VST(N,M) *U(NK,MJ) 
G(2) = VST(N,M) *V(NK,MJ) 


ES(1) = 0. 
ES(2) = O. 
GOTO 120 


100 F(1) = U(NK,MJ)*UCNK,MJ) 
F(2) = U(NK,MJ)*V(NK,MJ) 
G(2) = V(NK,MJ) *V(NK,MJ) 
G(1) = F(2) 
ES(1) = 0.5*REXU(NK,MJ)*(F(1) + G(2)) 
ES(2) = 0.5*RE*V(NK,MJ)*(F(1) + G(2)) 
120 DUM = CX(M)*EMY(N)*F(1) + CY(N) *EMXCM) *G(C1) 


10.12 The listing of the program to generate the exact solutions of the two- 
dimensional Burgers’ equation is given below. The program makes use of the 
subroutine EXBUR. Severe internal gradients are produced by the choice of 
the parameters given by (10.65). To produce moderate gradients in u adjacent 
to т = 1, а suitable parameter choice is given in Problem 10.14. 


Listing of Code for Problem 10.12 


C PR10P12. 

PROGRAM CEXBURG 
DIMENSION A(5),UE(21,21) , VE(21,21) , PH(21,21) 
IMPLICIT DOUBLE PRECISION (А-Н,0-2) 
OPEN (1,FILE=’CEBURG.DAT’ ) 
OPEN (6,FILE=’CEBURG.OUT? ) 
READ (1,*)NX,NY,RE 
READ (1,*) (ACJ) , J=1,5) , AL 
CALL EXBUR(UE,VE,A,AL,DX,DY,RE,NX,NY) 
DO 10 K=1,NY 

10 WRITE(6,2)K, (UECJ, K) , J21, NX) 
DO 11 K=1,NY 

11 WRITE(6,2)K, (VECJ,K) , J21, NX) 

2 FORMAT(14,6F9.3) 
STOP 
END 
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10.13 Program TWBURG is run for 6 x 6, 11 x 11 and 21 x 21 grids and for 
various values of 6,, dy, qz and qy- The computed rms solution and residual (rhs) 
errors are listed below. Unless otherwise stated the values of parameters for this 
problem are aj, a2, = 1.3 x 10° a3 = a, = 0,as = 1,A = 25,29 = 1,0 = 0.04. 


а) ME = 3, Optimal values of б, by 
6 x 6 grid, (number of iterations to converge % 11) 


ó; б, rms error rhs error 
0.26 0.26 0.0045 0.00120 
0.16 0.16 0.0062 0.00170 
0.1 0.1 0.0064 0.00170 
0.06 0.06 0.0065 0.00180 
0.0 0.16 0.0066 0.00180 


ll ———— зы É Ыз... mus 
11 x11 grid, (number of iterations to converge 4216) ( At = .0025) 


б, б, rms error rhs error 


0.26 0.26 0.00696 0.00189 
016 016 0.00311 0.00083 
0.1 0.1 0.00330 0.00087 
0.0 0.16 0.00350 0.00092 


———————M— сл 4. 


21 x 21 grid, (number of iterations to converge zz 16) 


6, б, rms error rhs error 


0.16 0.16 0.00110 0.00029 
0.1 0.1 0.00125 0.00038 
0.06 0.06 0.00133 0.00035 
0.0 0.16 0.00143 0.00038 


—————M—MM——— 


Thus the optimal values of 6, and 6, are seen to be ó; = 0.26 = б, for the 6 x t 
grid, бу — 0.16 = 6, for the 11 x 11 grid and the 21 x 21 grid. 
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b) ME=2, Optimal values of q, and q, 
6 x 6 grid 





Gz Чу  rmserror rhs error 





1.0 0.0 0.00542 0.00149 
10 1.0 0.00627 0.00142 
1.0 0.5 0.00576 0.00143 
0.5 0.5 0.00630 0.00158 
00 10 0.00717 0.00176 


11х11 рпа 


St Bea ee ee De e 
qz Чу  rmserror rhs error 


1.0 0.0 0.00196 0.00054 
1.0 1.0 0.00213 0.00054 
1.0 0.5 0.00202 0.00583 
0.5 0.0 0.00267 0.00072 





21x21 grid, (At = 0.05) 





Gr dy rms error rhs error 





1.0 00 0.000715 0.000198 
10 1.0 0.000750 0.000194 
1.0 0.5 0.000728 0.000195 
0.5 0.0 0.000813 0.000221 





The optimal values of 4,,4у are found to be q; = 1, qy = 0 for all the grids 
used. 


10.14 Тһе program TWBURG is run for the given choice of parameters and 
an 11 x 11 grid. 


a) ME=3, optimal values of 6,, ó, 





6, бу rms error rhs error 





0.16 0.16 0.00147 0.000129 
0.1 0.1 0.00198 0.000180 
0.06 0.06 0.00224 0.000229 
0.0 0.16 0.00255 0.000323 
0.16 0.0 0.00148 0.000142 


—HM P P gy rn . ti 
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Thus ó, = 6, = 0.16 is again seen to be the optimal choice for this grid. 


b) ME=2, optimal values of qz, qy 
qz qy  rmserror rhs error 
1.0 0.0 0.00200 0.000356 
10 1.0 0.00251 0.000288 


10 0.5 0.00220 0.000296 
0.5 0.0 0.00211 0.000135 


4г = 0.5, qy = 0 is seen to be the optimal choice. 
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Fluid Dynamics: The Governing Equations 


111 The kinematic viscosity, v, and the thermal diffusivity, a, depend on 

temperature, but not on pressure. As indicated in the figure, both v and a have 
a similar dependence on temperature. This is to be expected since the Prandtl 
number, Pr = v/a, and Table 11.1 indicates that the Prandtl number does not 


vary much with increasing temperature. 





60 1.00 
e У LN 
—A— a 
T 40 Pr 
© 
= Эй 
> 
© 
> у 
а. 
20 
LX 
x 
Lx 
w 
о y= 0.50 
0 500 1000 1500 2000 
T (K) 


Fig.1. Variation of v,a and Pr for air with temperature. 


11.2 Тһе kinematic viscosity, v, for water falls rapidly with increasing 
temperature up to 100°C . For saturated conditions above this temperature the 
pressure is increasing rapidly and the kinematic viscosity falls at a much slower 
rate. The thermal diffusivity, a, rises slightly with increasing temperature up 
to 200°С and then diminishes. The Prandtl number falls with increasing tem- 


perature in a similar manner to v. 
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T (K) 


Fig.1. (Problem 11.2) Variation of у,о and Pr for water with temperature. 


© |-49-= н=ни(Т1/300)°” El 
ё A Sutherland’s law p 
= - 


Table 11.1 





0 


1000 15 2000 
0 500 00 T (K) 


Fig. 1. (Problem 11.3) Variation of и for air with temperature. 
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11.3 As is clear from the figure, Sutherland's law is а good approximation 
to the data for the viscosity, и, given in Table 11.1. The power-law depen- 
dence on temperature is accurate for temperatures close to 300 K but diverges 
particularly for high temperatures. 


11.4 We need to evaluate 2 ju pdV 4- 1. pv.n ds = 0 for a small element, 
(dr,rd8, dz). The various parts are evaluated as 


д др 
ЛЕ: dV = 5,1 dódrdz 


д pvr 1 д д 
ds = ЕШ + ет +- - gg (09%) + v2) rd@dr dz. 


Ot 


As the element is shrunk to zero the required result is obtained. 


д 19 1 0 д 
Thus E: + c eres) + mgg Pte) + CT rdédrdz = 0. 


11.5 For incompressible viscous flow, the global conservation of momentum 
equation can be written 


|7 += БУР] dV = [vw 


This is applied to a small volume element, (dr, rd0, dz}, with no circumferential 
variation (0/00 = 0) and for steady flow, 


Axial momentum: 
Тһе left-hand side becomes 


Qv, Qv, 19р 
з + "3. + we | павага: 


The right-hand side becomes 





5 m ——(7т,,) + nj rdüdrdz = 











r Or Oz 
Qv, 9%, Qv, До, 2070, 
| 2 ao s 119% ш ШЫ Шу: | авага. 


Using continuity this simplifies to 
RHS = u(V?v,rd6drdz. 


Qv, до, 1 др 2 ú 
Thus а гу + Vr A. + or -у V v павага: = 0 


Ав the volume element is shrunk to zero the required result 1s obtained. 
Radial momentum: 


The left-hand side becomes 
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Qv, Ov, 1др 
odon +v UA. = + СОР } табата: 


The right-hand side becomes 


1 ð д 2 ро, 
E + E E 42 | rd@drdz 


2 
=й E : (3%) ph E - D садаға: 
r 





т дт XV Or OrOz 022 


This сап be simplified by using the continuity equation, 


Ov, 1 до, Qv. о, 
Br pc F 227 ve | табага: 








RHS = | 


Combining the above results gives 


до, ДЕ до, ДЕ 1 др 
"Or 1920; р Ог 





Ur 
= Eb улі) rdüdrdz = Q. 
r 
For a zero size of the volume element the required result is obtained. 


11.6 The energy equation, (11.32), сап be written for steady incompressible 
flow as 


De 
---Ф-РрУ2Т |4У-0. 


This follows from considering the integral form of (11.35) with (11.37) substi- 
tuted. The desired result follows, for any coordinate system, by shrinking the 
volume to zero. 


The form of V?T in spherical coordinates is given by Panton (1984), p.744. 
For steady flow, De/Dt = V.(ve) — e V.v, 
where V.v = 0 for incompressible flow. Thus 


De 10 1 д 1 O(vee) 


Dt rar a Ope) 2220 Шар Ыш e дф 
1 


ЖЕСЕ д 1 д 
ЕДШ ‚йж у ы; xx] 
PS Ж оф де 
г 00 тзпбдф 








229, 
wie 


11.7 То obtain the same form of the momentum equations in nondimen- 
sional variables it 1s necessary to define nondimensional viscous stresses as 
т* = 7/p.U2,. Thus rz, becomes 


e e T* — 0 72 * Ou" Ov" +9 ,Qu* 
co!zz Foo 3 H дх* Ду“ á Ox* 
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* ж 9 
or TŽ - ад -im t. 





Бе Or* 3 


To obtain the same form of the energy equation in nondimensional variables 
it is necessary to define nondimensional heat transfer rates as Q* = Q/pooU m 


Thus Q, becomes 


«Too ӘТ* 
І Әт" 





poo US QT = — kook 


or Qt = -eÊ 1)M Pr Re]. 





a) The MA. AE is suitable for high-speed flow where tempera- 
ture changes are caused by compressibility. 


b) For low speed flow it is better to nondimensionahse the temperature as 


Т* = (T — T,)/(Ts, — Ty) and heat transfer rates as Q* = Qí los Us sc) (T. — 
ds 


11.8 a) For a stream function approach typical boundary conditions are: 


(i) solid surface: у = 0 
(ii) far field: Op/Oy =U 


Often the farfield (upstream) boundary condition can be converted into an 
equivalent Dirichlet boundary condition. As a result the stream function for- 
mulation may produce an algorithm that converges more rapidly than a velocity 
potential approach. 


b) The velocity potential formulation extends directly to three dimensions, 
(11.51). However the stream function formulation is based on satisfying the 
continuity equation automatically in two dimensions. But this is not possible 
in three dimensions and the scalar stream function must be replaced with a 
three-component vector potential (Sect. 11.5.1). 


11.9 For potential flow around a circular cylinder, (11.58) and (11.59) сап be 
combined at the surface of the cylinder to give a tangential velocity component, 
„== 2 sin 0. 
In addition, the Bernoulli equation, (11.48), gives 
Doo p + 0.5 US = p/p + 0.5 42. . 
Thus ср = (p — Poo) /0.5pUZ, = 1 — (4/0)? = 1 — 4 sin^ 6 . 


1110 We define  — Pfu’, P? = (2 — В)ху and n= ui/^ yJ P. 


The introduction of the stream function automatically satisfies the continuity 
equation. The various terms in the z-momentum equation become 


ucu.f' where /' = Of/On, аи. Јаз = (8/(2 — B)}ue/z 
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Ou _ 2 ue p (B7 Due" y ди че”, ди ue iH 
Әт (2-8) = (2-8) = P? ду P^" др Р? 
i? 
v=—— - Byul? yf! — Pf]. 
Gil - A) | 
Substitution into the z- momentum ds gives 
— BU - 115 8 f" 
z(2 — 8) 4% = 


o f" ff" Bü - = 
11.11 It is convenient to write (11.61) as 
9 6 О dite д? и 
ота ) + an cl = БЕ, 
After integrating across the boundary layer (А > ó) 


h 
д due 
| i; 0 e ]dy + u,v, = —т„/р. 


ди 


— dy. 
бу 


h 
From the continuity equation uev, = -/ the 
о 


Thus, 








é 
ius iaf *6-2)a 
T ao ba Ue 





1 2 

or qs e ) = d; — 0.5 Cf, 
40 0 du, 
— = 0. —(H — 

ог —— 0.5су—( ш жа F 


Exactly the same equation would be obtained starting from the turbulent 
boundary layer equations, (11.73) and (11.74). 


11.12 From the definition of the Bernoulli variable, H 
ӘН /Әг = Op/Ox + udu/Ox + vOv/Ox (1) 
ӘН /ду = Әр/ду + udu/Oy + vOv/Oy . (2) 


From the definition of vorticity, 
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дС/дт = д?и/дхду — O^v/Osz*. 
Also using continuity, 9(С/Әт--(07%/дл? + 0^v/Oy?) . (3) 
Similarly, 0¢/Oy = (0?u/Oz? + 0?u/Oy’) . (4) 
Using (1) and (4), the steady counterpart of (11.83) becomes 


vOu/Oy + OH/Ox — vOv/Ox = (1/ Re)üC/0y 


or v( + OH/Oxz = (1/ Re)üC/Oy. (5) 
Using (2) and (3), the steady counterpart of (11.84) becomes 
—иб + 9H/0y = —(1/ Re)üc/8a. (6) 


In the farfield equations (5) and (6) reduce to Н = constant. Therefore the 
farfield could be solved as a solution of (11.51) with embedded constants de- 
termined by matching the solution of (5) and (6) and the continuity equation 
in the viscous region close to the surface. 


11.13  0(11.83)/0x + 0(11.84)/0y becomes 


д Qu Q Qu.2 , „дидо доу д?р д?р 
ai ae + By? (22) CECI Ox? ду? 
д? ди дщ 
= moo IM =? 
д?р ‚ 9p д?р ЕЛ Q^) Ory Ob 
ðr? Oy — Әтду дт? Ay?’ 


In three dimensions an equivalent treatment leads to 











n Т. 

дт? ду? Oz? 
- (£62, oF (wv) | 9 (v^) É 9(vw) 8? (w?) 2000) 
дхду ду? дуд Oz? OxOz ^ 


11.14 Equation (11.101) сап be rewritten, for an isentropic process, as 
udu + vdv + a*dp/p = 0. (1) 


Equation (11.10) can be expanded to give 


Qu Ov идр vO | 
puo torto 7 


Using (1), this becomes 
ди Ov и? ди uvdv v^Ov ирди 


ді Ы Oy а? дт а? дт а? ду а? Oy 
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Using (11.102) this can be re-arranged to give 


9% uv 0% 
1079052 99199599) 7*9 





which is the two-dimensional equivalent of (11.103) . 


1115 Тһе following orders-of-magnitude are ascribed to various terms, 
изи, vA óu /І, TxT,, O[Orsz1/L, O/dyx 1/6 

From the y-momentum equation, др/ду ғ u26/ L, 

so that  vOp/Oy << идр/дхт апа Op[Ox = р./1. 

The biggest term іп Ф is p(Ou/Oy)? = ни/8&*. 

The heat conduction terms are of magnitude 


blo д ‚КОТ ET 


"м. LÁ 


L? 5j ду “ес 
Consequently 0{kOT/Oxr}/Ox can be discarded. 
All other terms must be retained. Thus for air, (11.38) becomes 


OT OT Š 
рер (ғас ur uL E» EL 54%! 


ð ӘТ 
ЕЛЕ еле) ы 


which is (11.113). 


11.16 The z-momentum equation (part of 11.116) becomes 


9 (ou) + (pu? p) (put) = Sree + = 

Qr T Bg PS j Әу PERT ду ^" 
О 4ди Ov д Qu | Qv 

ca Mss 5 ees D Men 

and the y-momentum equation becomes 


gue Tg ee SERT See = Oa e» T Uu P 
д Qu | Qv д 4Qv Ou 
. 3, + 35) + ay лал, 


1117 The z and y momentum equations (іп 11.116) сап be combined as 
u(z-mmtm) + v(y-mmtm), with the help of the continuity equation, to give 


9 (0.5092) + гош?) + 265 500) + иӘр/дт + vOp/Oy 
Ot Ox Oy (1) 


Q 
—{и-——Тек F и Try HURT ry + ЛШ) = 0. 


Әт ду Әт 
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This is equivalent to (11.34) with f = 0. 
Subtracting (1) from the two-dimensional equivalent of (11.33) gives 


д Q д О ð 
co as (PT) + 5; eur) + a + Ho dE 27 
ә вәт. 9 ,kOT (2) 


ты УУУ ay елы 


which is the equivalent of (11.35) after substituting (11.37). 
It may be noted that рс„Т = pc, T — p. Thus (2) сап be rewritten as 


which is the equivalent of (11.36). 
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Generalised Curvilinear Coordinates 


12.1 For a two-dimensional transformation we have 


J= б E and J` = » "d ; (1) 
— [e Ny iu YE Уң 
also JJ! = I. 
Thus multiplying J and J TI we get 
bos + уу 6171 се = f H | (2) 
1:26 + уе Пе + Тууп 01 


Now solving (2) for 6,, £y, nz and ny, we obtain the two-dimensional version of 


(12.7). 
12.2 In (12.13), 


1 1 
LHS = |gl? = (а?а (а + уу) — (хет, + yen) }? (1) 
= (Tye Е LEYn) › 


RHS = || = z¿t/n — 24796 (from 12.4) , (2) 
LHS = RHS as required. 


12.3 Considering first the term zg, we have from (12.15) 


te = (911)? cosa . (1) 
1 
From (12.17), cos @ = 912/(911 922)? ; (2) 
1 1 
2 2 — q2. N 2 
ie. sin0 = (2 |. 012 ) = (2 z) | (3) 
9411922 g11 922 


біпсе gl? = |J~*| (see 12.13), and |4| = 91 922 - 92, equation (3) can be 
written as, (from 12.16) 
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ing OL. ЫЧ (guy nta Я 
(911 go2)2 911 922 91 (AR) 
M 1 


Thus, a НЫШЫН 5 
JU Аны Aone (5) 


so that (1) сап be written as, 


te = cosa/(AR.J. sin 8)2 as required. 


The expression, ye = —sin o/( AR.J. sin 9)? 

сап be derived as follows. 

gi =z} +y? and %-(01- 22)? | (6) 
Upon substituting for 011 and тг, the required expression for ye is obtained. 
Further, from (4) and (5) we get AR/(J sin 0) = 492. (7) 
From (5) and (6), sina = ye/A/gi1, cosa = ze/ gii. (8) 


Now expanding cos (0 — о) and sin (0 — а) and substituting for sina, cosa, sin0 
and cosÓ from the previous expressions, one obtains 


1 
АВ \? . AR \? 
Zy = cos(0 — а) (2287) апа y, = 51п(0 — а) (2227) 


as required. 


12d. оа) Жы Hu (1) 
Using the chain rule, Err = 6.(06,/06)-- n, (06/01) 


| [= жей ТТІ us БТА a 
te. os | | ы le | T | | EA ‚| | 


Now substituting €,|J~'| for y, in the numerator and simplifying the form of 
expression given for £,, is obtained. The procedure is similar for Ezy. 


12.5 Тһе RHS of (12.45) is given by 


T; AE? (Teee Teet 

— |] + — | = — < | +....... . 

те | kar | Te Te Ш 0) 
From (12.35) we have Tg = reT;, . (2) 


Hence (1) becomes, 


AC (Tece Teee 
T, + T, —— | —— — — T 
VT ( Е + (3) 
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Using the chain rule, from (2), we have 
Tee = feed, + ves and Teee = Tizgee + 9tezeedus + ж Тек ; (4) 
Substituting (4) in (3) and simplifying (12.46) is obtained. 
12.6 Expanding the terms on the LHS of the given expression as a Taylor 
series about 4) we have 
fiij. 
TET jl 
(1 + re) ACT; + (т; — 
(1+7) Ате + (т; — 


s + (ғ? + Do pe + O(H) 
аёл, + (7 + 146 ¿e -- О(Н) 


4n t2 [YR 05 


Ге 1+ (r _ 125 Zes Tee (г? +1) AE? Теге | | 
Te E 2 Те (re + 1) 6 Te “ 


r3 2 y 
Jote- 0526 Pes ааа S 














2 zg (4-1) тє 
Te AE Te me rg +1, AG Teee Teee 
==> |] — jj— l -= — — — — НЕСІ 
кекей CE - 28) e CET) A ыы. 
But, 
Te | Тее tee rT 
D т; тт 
Т. ҮТ, 
Te 27. M ші (Ze = 3 = apd nee + Зх Гу. 
LE Те ë 
Hence 
S A 1+r,)A 
Тун. — Туа LT, + (re - DET, d + rz) Дт 
DEI 2 (1-) Аё 
TE Z^ 
Tos: 3 Trz 
ЕНЕ 971% и. I 


which leads to the required result. 
From the resulting expression we find that second order accuracy is achieved 
for all 


2 3 
А 3— rg + 27; | 
í of, Sted 


127 Following the transformation carried out in Sect. 12.3.1, we find that 
the given equations, 
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ie. tgtvy=Q and чу- 9-0 (1) 
may be written in generalised coordinates as 

(1/J) (&£zug + zug + Cyve + Nyy) = 0 

and (1/J)(&yug + туча — 6206 — zv) = 0. (2) 
Now writing €,ue/J = (&£zu/J); —u(&/J); = (€&zu/J), — u(yn)e (see 12.50) 


etc. 

Equation (2) reduces to 

Оё + Ул = 0 and 07 У = 0, (3) 
where U* = (1/7)( и + бб), апа У*=(1//)(и + тую). (4) 
Now & = ул/Л | from (12.7). 

Since the grid is conformal, y, = ze, so that 

е-е = nl U = пы from (12.7). 

As а result in (4), we have 

U* = (1/J)(nyu + &у®). 

Similarly n, = —&, for a conformal grid and V* = (1/J)(nyv — буи). 

12.8 Following the procedure for the continuity equation in Sect. 12.8.3 and 


the Laplace equation in Sect. 12.1.3, one can write the vorticity transport 
equation in generalised coordinates as 


>) (=) 1 Е 912 
+ ——— = = = 
| J : J ; Re E GE E ә) 








where 922 = ae + j. gil = T; + Yes 912 = Lely + YEYn- 
For an orthogonal grid, 4012 = 0, so that (1) becomes 


CUS CVS 1 [ 922 1 (41 Е 

(87) +(F),-#(S«) - x (45) -® 2) 
QU: VN 1 (ak tye )-x s 2 

= Jal J ), о | xi егемен 


For a conformal grid, 


U* ve 1 
(5 Las ) = lee + Gun) = 0. (4) 
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12.9 Following the procedure in the previous problems, the given equations 
are transformed into generalised coordinates as follows, 


meo a 


and u{ Erue + zt uy} a ane FT 7и, \ + Pex 


= 3 zu (1+ И) + II + wr) 29 


ду 2x Эу I» 


Equation (2) can be expanded as 


c C 1 
Uug + Убара = gr (+ Ure + Qr) (буш ttn) + 
| (3) 
(1--гт) (бше t 2byNy ven + rium) ) 


In the momentum equation i.e. (3), under the boundary layer approximation 
some of the €-derivatives can be dropped. Accordingly, (3) reduces to 


2 
с с 7) 
U ue + V un T Рет = Reh t vr)usj,. (4) 


12.10 The number of iterations to converge (N;) and the solution error 
( 10 — 8..||.„з ) using LAGEN and using FIVOL for the given computational 
domain are as follows. The values of the various parameters аге: ry, = т; = 0.1, 


Tg = 1.0, ry = 3, бы == 0, Ө. == 90°, A= 1.5. 
Grid N; error 


LAGEN 6x6 16 0.1066 
11х11 20 0.04742 0 
21 x 21 38 0.03388 / 


FIVOL 6x6 16 0.3950 
11 x 11 24 0.1708 
21x21 >51 0.05807 


lt is clearly seen that as the mesh gets more distorted the accuracy of 
LAGEN (i.e. the generalised coordinates method) worsens. The finite-volume 
code FIVOL has a similar behaviour. With a fine grid the accuracies of LAGEN 
and FIVOL approach each other (compare the solution errors for the 21 x 21 
grid). 
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12.11 Тһе grid for this problem is generated by using the expressions sug- 
gested. Thus 
r = гог +ais +azs? whereO<s<las ry, < r «ту. (1) 
a, and аз are evaluated using the boundary conditions that 


r = Poy when s = 1 and 


r= гш Аға when s=1/JMAX . We find that 


ay = Ary, — ss? (Try — ruz)/ss(1— ss) , 


аз = Try — Twz G1 , (2) 


where ss = (JMAX — 1)/JMAX . 
Similarly in the 0 direction, 
6 = 6, + bit + bet? and m 


= Өң when t = 1 and ө = 0, ‚— Abn when t = (KMAX —1)/KMAX . 
we find that 


b; = ((On — 0, — Abn) — (On — 6,)t?)/ (tt(1 — tt)) , (3) 
b; = On — 0, — by 
and tt =(KMAX —D/KMAX. (4) 


The values of Ar,,, and A@, are given. A modified version of subroutine GRID 
is developed to implement (1) to (4) and its listing is provided below. Note that 
Ar,,, and А0, are read in. On running the modified program for the conditions 
of Table 12.2, the following computed errors are obtained. Here the values of 
Агь; and A0, were 0.02 and. 4.0 respectively. 


grid error 


r,=1 6x6 1.621 
11x11 0.1443 
21 x 21 0.00688 - 
r,-2 21x21 0.01232 


The accuracy is seen to improve considerably on the fine grid when compared 
with that for a uniform. mesh (Table 12.2). It should be pointed out that the 
accuracy 15 quite sensitive to the values of Ary, and A6,. For a 21 x 21 grid, 
Ағ, = 0. 02 and А6, = 1.0 gave an error of 0. 028053. 
Listing of Subroutine GRID1 for Problem 12.11 

Subroutine GRID1(JMAX,KMAX,THEB,THEN,RW,RX,RY,RZ) 


С MODIFIED VERSION FOR PROBLEM 12.11. 
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SET THE AUGMENTED GRID, INITIAL AND EXACT PHI 


DIMENSION XG(23,23) ,YG(23,23) ,PHIX (21,21) , PHI (21 ,21) 
DIMENSION THETA(23) , RAD(23) , RHZ(23) 
COMMON /GRIDP/XG,YG,PHIX,PHI 


READ(1,*)DRWZ,DTHN 


JMAP = JMAX - 1 
KMAP - KMAX - 1 
AJM = JMAP 

AKM = KMAP 

AJMI = 1./AJM 
AKMI = 1./AKM 
FKK= (KMAX-2) *AKMI 
PI = 3.1415927 
KPP = KMAX + 2 
JPP = JMAX + 2 


KMAXX=KMAX+1 
JMAXX=JMAX+1 


DO 120 K-2,KMAXX 

AK =(K - 2) 

AK-AK/ (KMAXX-2) 

RWZ (К)= RW + (RZ - RW)*AK 

Bi = ((THEN - THEB-DTHN) - (THEN-THEB) *FKK*FKK) 
Ві-В1/(ЕККж(1.-ЕКК)) 

В2-ТНЕМ-ТНЕВ-В1 

ТНЕТА(К) = (THEB + В1*АК + B2*AK*AK) 


THETA FOR REFLECTED CELLS 


THETA(1)-THETA(2) - (THETA (3) -THETA (2) ) 

THETA (KPP) =ТНЕТА (KMAXX) + (THETA (KMAXX) -THETA (KMAX) ) 
RWZ (1) =RWZ(2) 

RWZ (КРР) =RWZ (KMAXX) 


DO 7 K = 1,KPP 

THK = ТНЕТА(К) 

CK = COS(THK*PI/180.) 

SK = SIN(THK*pi/180.) 

RXY = RX + ((THK - THEB)/(THEN-THEB))*(RY - RX) 


Ф: 


С) 


66 


12.12 


Generalised Curvilinear Coordinates 


DO 6 J = 2,JMAXX 

AJ = J - 2 

АЈ=АЈ/ (JMAXX-2) 

A1=(DRWZ - AJMI*AJMI*(RXY-RWZ(K)))/ (AJMI*(1.-AJMI)) 
А2= RXY - RWZ(K) -А1 

RAD(J) = RWZ(K)* A1*AJ + A2*AJ*AJ 


RAD FOR REFLECTED CELL 


RAD(1)-RAD(2) - (RAD (3) -RAD(2)) 
RAD (JPP)=RAD (JMAXX) + (RAD(JMAXX) -RAD(CJMAX) ) 


SET XG, YG, EXACT AND INITIAL PHI 


DO 66 J=1,JPP 

XG(J,K) = RAD(J)*CK 

YG(J,K) = RAD(J)*SK 

IF(K .EQ. 1 .OR. K .EQ. KPP)GOTO 66 
IF(J .EQ. 1 .OR. J .EQ. JPP)GOTO 66 
JM = 1-1 

KM = K - 1 

PHIX(JM,KM) = SK/RAD(J) 

PHI(JM,KM) = PHIX(JM,KM) 

CONTINUE 

CONTINUE 

RETURN 

END 


For the solution domain (Fig. 12.9) the coordinates in the compu 


tional and the physical spaces are related by 
6=O0wx+n(@zy — бух), 


r=rw + (пх = туу) +0(rz = ту) (rv —rz)— (rx тии), 


апа т =гсо50 and у= гәп. 


Now the expressions for the transformation parameters may be derived аз: 


lows: 


let r = 


rw + AE + Bn + (С - А). 


where А = гх — rw, B=rzg-rw,C=ry-rz. 


From (1) and (4) we have, 


0: = 0, 


6, = Өзү – ух, Fn = 0 
rg — Act n(C—A) — rg = 0 
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r= В + (С- A), ran — 0 (5) 


re = rg cos, ye = rc sin 0 , 


veg —0, 94-9. 


Len = Тұң cos 0 — теб» sin Ө, Yen = Ten Sin 0 + теб) сов0, 
Ту = rq cos 0 — r6, sin 0, yg = r4 sin 0 + r6, cos f , 
туң = —2r540, sin 0 — r0 cos Ө, Ynn = 27,0, cos 0 — r6? sinð . (6) 


The subroutine TRAPA is easily modified to calculate the transformation pa- 
rameters using (6). The listing of the modified version called TRAPA1 is given 


below. 


Running the program for the test case shown in Table 12.2 the following solution 
errors are obtained. In the table, error -|0 — @¢2||pms апа №; is the number 


of iterations for convergence. 





grid error М; 





6 x 6 0.07154 15 
11x11 0.020953 12 
21x21 0.005285 41 





Listing of TRAPA1 for Problem 12.12 
Subroutine TRAPA1(JMAX,KMAX,THEB, THEN , RW, RX, RY, RZ) 


FROM GRID COORDINATES CALCULATES TRANSFORM PARAMETERS 
AS PER THE FORMULA GIVEN IN PROBLEM 12.12. 


а Су 0 a 


DIMENSION XG(23,23) ,YG(23,23) ,PHIX(21,21) , PHI(21,21) 
DIMENSION GWW(21,21),GWT(21,21) ,GTT(21,21) ,DELZI(21,21), 
1DELET(21,21) 

COMMON /GRIDP/XG,YG,PHIX,PHI 

COMMON /TRAPP/GWW,GWT,GTT,DELZI,DELET 


PI = 3.1415927 
AA=RX-RW 
BB-RZ-RW 
CC=RY-RZ 


JMAX - 1 
1. /AJM 
KMAX - 1 
1. /AKM 


AJM 
AJI 
AKM 
AKI 


С) 


о 


DO 2 K = 1,KMAX 
KP = К+1 

AKP=KP - 2 

AKP = AKP * AKI 
KPP = K + 2 

DO 1 J = 1,JMAX 
JP = J + 1 
AJP=JP - 2 

AJP = AJP * AJI 
JPP = J + 2 
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RADZSQRT(XG(JP,KP)*XG(JP,KP) *YG(JP, KP) *YG(JP,KP)) 


COST=XG(JP,KP)/RAD 
SINT=YG(JP,KP)/RAD 


THEE=(THEN - ТНЕВ)жРІ/180. 


RZETA=AA + АКРж(СС-АА) 


RZE=CC - AA 


RETA=BB + AJP*(CC-AA) 


BASIC TRANSFORM PARAMETERS 


XZI = COST*RZETA 
YZI = SINT*RZETA 


ХЕТ = COST*RETA - RAD*SINT*THEE 
YET = RETA*SINT + RAD*COST*THEE 


XZZ = 0.0 
YZZ = 0.0 


XEE = -2.*RETA*THEE*SINT - RAD*THEE*THEE*COST 
YEE = 2.*THEE*RETA*COST ~ RAD*THEE*THEE*S INT 
XZE = COST*RZE - RZETA*SINT*THEE 
YZE = SINT*RZE + RZETA*COST*THEE 


AJ = XZI*YET - XET*YZI 


MODIFIED METRIC TENSOR COEFFICIENTS, G11,G12,G22 


GWW(J,K) 
GWT(J,K) 
GTT(J,K) 


(XZI*XZI + YZI*YZI)/AJ 
-2.*(XZI*XET * YZI*YET)/AJ 
(XET*XET * YET*YET)/AJ C 


MODIFIED DEL**2ZI AND DEL**2ETA 


DUM 


H 


GTT(J,K)*(XET*YZZ-YET*XZZ)/AJ 


DUM = DUM + GWT(J,K)*(XET*YZE-YET*XZE)/AJ 
DELZI(J,K) = DUM + GWW(J,K)*(XET*YEE-YET*XEE)/AJ 
DUM = GTT(J,K)*(YZI*XZZ - XZI*YZZ)/AJ 

DUM = DUM + GWT(J,K)*(YZI*XZE-XZI*YZE)/AJ 
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DELET(J,K) = DUM + GWW(J,K)*(YZI*XEE-XZI*YEE)/AJ 
DELZI(J,K)-DELZI(J,K)/JMAX 
DELET(J,K)-DELET(J,K) /KMAX 

1 CONTINUE 

2 CONTINUE 
RETURN 
END 


12.13 The modifications to LAGEN to implement the group finite-element 
method are made in subroutine ITER and the modified version 1s listed below. 
The modified program was run for the following conditions : rw = rz = 0.1, 
ry = 1.0, бух = 0, 0zy = 90°, À = 1.5. The computed solution errors are 
tabulated below. In the table, error = |0- @¢2||-pms апа Nj is the number of 


iterations for convergence. 


grid error М, 


==] 6x6 0.07514 14 
11x11 0.009701 13 
21x21 0.000971 22 


r,=2 6x6 0.41846 16 
11x11 0.086136 15 
21x21 0.016715 47 


Comparing the solution errors now obtained with those in Table 12.2, we find 
that the finite-element formulation is more accurate. The rate of convergence 
almost approaches that of a fourth-order method. 


But when the mesh gets too distorted (as a consequence of r, being more than 
1), the accuracy reduces considerably. 


Listing of ITER1 for Problem 12.13 
Subroutine ITER1(JMAX,KMAX,NMAX,NITER,OM, EPS) 
C ITERATE USING SOR APPLIED TO DISCRETISED EQUATIONS 


DIMENSION GWW(21,21) ,GWT(21,21) ,GTT(21,21) ,DELZI (21,21), 
1DELET(21,21) ,PHI(21,21) , PHIX(21,21),XG(23,23) , Y8(23,23) 
COMMON /GRIDP/XG,YG,PHIX,PHI 

COMMON /TRAPP/GWW,GWT,GTT,DELZI,DELET 

Ci=1./6. 

С2=1.-2.*С1 

КМАР = КМАХ-1 

JMAP = 2МАХ-1 
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АКМ 
АЛМ 


КМАР-1 
JMAP-1 


DO 3 N = 1,NMAX 


SUM = 0. 

DO 2 K = 2,KMAP 
KM = K - 1 

KP = K + 1 

DO 1 J = 2,JMAP 
ЈМ = J 1 

JP = J + 1 


PHD=-0.5*C1*(DELZI(JP,KM)*PHI(JP,KM)-DELZI(JM,KM)* 

1 PHI(JM,KM)) 
PHD=PHD-0.5*C2*(DELZI(JP,K)*PHI(JP,K)-DELZI(JM,K)* 

1 РНІ(ЈМ,К)) 
PHD=PHD-0.5*C1*(DELZI(JP,KP)*PHI(JP,KP)-DELZI(JM,KP)* 
1 PHI(JM,KP)) 


PHD=PHD-0.5*C1*(DELET(JM,KP)*PHI(JM,KP)-DELET(JM,KM)* 
1 PHI(JM,KM)) 
PHD=PHD-0.5*C2*(DELET(J,KP)*PHI(J,KP)-DELET(J,KM)* 

1 PHI(J,KM)) 
PHDzPHD-0.5*C1*(DELET(JP,KP) *PHI(JP,KP) -DELET(JP,KM) x 
1 PHI (JP,KM)) 


PHD=PHD+C1*(GTT(JM,KM) *PHI (JM, KM) *GTT(JP, KM) * 

1 PHI(JP,KM)-2.*GTT(J, KM) *PHI (J, KM)) 

PHD=PHD+C2* (GTT(JM,K) *PHI (JM, K) *GTT(JP, K) *PHI (JP, K)) 
PHD=PHD+C1* (GTT(JM,KP)*PHI(JM,KP)+GTT(JP,KP) * 

1 PHI(JP,KP)-2.*GTT(J,KP)*PHI(J,KP)) 


PHD=PHD+C1* (GWW(JM,KM) *PHI (JM, KM) *GWW(JM,KP) * 

1 PHI (JM,KP) -2.*GWW (JM,K) *PEI (JM, K)) 

PHD-PHD4C2* (GWW(J, KM) *PHI (J, KM) *GWW(J, KP) *PHI(J,KP)) 
PHD=PHD+C1* GWW(JP,KM) *PHI (JP, KM) *GWW(JP , KP) * 

1 PHI(JP,KP)-2.*GWW(JP,K) *PHI (JP, K)) 


PHD=PHD+0.25*(GWT(JP,KP)*PHI(JP,KP) 
-GWT(JM,KP) *PHI(JM,KP) 
1 *GWT(JM,KM) *PHI(JM,KM) -GWT(JP, KM) *PHI (JP,KM)) 


PHD = 0.5*PHD/(C2*GTT(J,K) *C2*GWW(J,K)) 
DIF = PHD - PHI(J,K) 

SUM = SUM + DIF*DIF 

PHI(J,K) = PHI(J,K) + OM*DIF 


1 CONTINUE 
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2 CONTINUE 
RMS = SQRT(SUM/AJM/AKM) 
IF(RMS .LT. EPS) THEN 
NITER=N 
RETURN 
ENDIF 

3 CONTINUE 
NITER=N 
WRITE(6,4) ХМАХ, RMS 


4 FORMAT(? CONVERGENCE NOT ACHIEVED IN? 


1 ,I5,? STEPS, RMS=’,E12.5) 
RETURN 
END 
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Grid Generation 


131 This problem is a direct application of (13.7) and (13.80). The solution 
involves many complex quantities and it will be convenient to use the complex 


algebra facility available in FORTRAN. 
0.0 


ne 

ЕРІҢІЗ 

SHH ea 
See ІІД 





-0.4 
-0.4 -0.2 0.0 0.2 Xx 0.4 


Fig. 1. Points on the near-circle. 


The point distribution on the near-circle surface and that on the aerofoil 
after the inverse transformation are given in Figs. 1 and 2 and in the tables 
below. 'The point distribution on the aerofoil preserves its shape properly only 
when one has a sufficient number of points. The result shown in Fig. 2 is based 
on 79 points. If too few points are used, the shape may be distorted. The results 
with a smaller number of points are not shown in the table. Further only every 
hfth point 1s provided to allow the reader to check the values. 
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Coordinates on the Near Circle. 


x? 


0.311733 
0.256719 
0.192976 
0.131432 
0.0714757 
0.0130265 
-0.0439564 
-0.0994675 
-0.153386 
-0.205308 
-0.264115 


Points оп the Aerofoil Surface. 


x 


0.982545E-06 
0.147994E-01 
0.488224Е-01 
0.101192 
0.170518 
0.253993 
0.347994 
0.448483 
0.551164 
0.651691 
0.745804 
0.829560 
0.899430 
0.952461 
0.986765 
1.00000 


y 


0.177275Е-03 
0.203927Е-01 
0.349700Е-01 
0.467081Е-01 
0.551881Е-01 
0.594425E-01 
0.594694E-01 
0.559887E-01 
0.497089E-01 
0.416412Е-01 
0.326113Е-01 
0.236261E-01 
0.154589E-01 
0.866073E-02 
0.474186E-02 
0.249522Е-02 


y 9 
-0.000474 -0.08706 
-0.139348 -28.4932 
-0.212113 -47.7047 
-0.250291 -62.2954 
-0.269585 -75.1507 
-0.274915 -87.2871 
-0.268034 -99.3133 
-0.248846 -111.787 
-0.215092 -125.493 
-0.159276 -142.196 
-0.0188101 -175.926 
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0.2 0.4 0.6 0.8 X 1.0 
Fig. 2. Grid point distribution on а МАСА 0012 aerofoil. 


13.2 In the ¢-plane lines of constant ф and w are prescribed to give a 
rectangular grid. The x and y coordinates in the physical plane for the various 
grid points are evaluated from (13.84). The resulting grid (which in fact gives 
the streamlines and velocity potential lines) for the case when —10 < ф < 10 
and 0 € v < 0.2, are shown in Fig.1. For an actual computation a much finer 
grid would be used, particularly close to the corners. 





-1 0 1 2 3 X 4 


Fig.1. Streamlines and lines of constant velocity potential for the backward-facing 
step. 


13.3 Modifications to ALGEM to construct an orthogonal grid by the or- 
thogonal trajectory method may be carried out as follows. The first step is to 
generate the nine intermediate surfaces (see Fig. 13.6 in the text) using sub- 
routine SURCH. Parameters $5, 53, ....and Sy are read in and additional arrays 
X S4, Y 54,......... Х510,Ү 510 аге set by modifying lines 11 to 18 in SURCH. 
Х511, Ү511 is the outer bounding surface instead of XS4, Ү54. 

Now it is required to integrate (13.31), 


du, (деді | дуду\ /[ дт, дуу: 
dv а 7 (saat MIS + (аи) | 2 


This is а typical characteristic equation and is integrated by marching from 


ABC to the first intermediate surface and then to the second, until the surface 
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ED is reached. Equation (1) can be integrated using an algorithm like 
Hk — Вк-1 = RHS (ир — ир), Ж (2) 


where и is the value of и on the surface Sp(v = uk) to Бе determined. The 
point (ug 1, Уь-1) is the corresponding point on surface ©. The equivalent 
coordinates (z&..1, yx—1) are obtained from (13.27). 

То improve the grid quality: 

1. One can cluster points closer around A in the € - direction. 

2. Тһе intermediate surface next to ABC should be closer i.e. Ау should be 
smaller. 

3. Some control is also possible by choosing EA(v) and C D(v) appropriately 
in (13.27). 


13.4 Тһе procedure to construct a near-orthogonal grid may be described as 
follows. The method closely follows that of Problem 13.3 and the important 
change 1s that now (13.34) is used in place of (13.31). 

The procedure described in Sect. 13.2.5 is used to march from one inter- 
mediate surface to the other. The method reduces to the determination of the 
point of intersection of the two normals (4т/4у),, and (dz/dy),, with the cor- 
responding v = v2 lines. The point of intersection of the normal to v = v4 line 
with the v = v4 line is given by the following formulae: 


т = mil(yi — yj) + mazja] + АА + тута], (1) 


уз = Yj2 + ma(za — 253) , 


where ті and ту аге the gradients at 71 and 79 of the lines v = vı and v = 1 
respectively (see Fig. 13.17). The lines in SURCH implement these formulae. It 
is necessary to move (£2, y2), corresponding to (и;,/2)1п Fig.13.17, until the 
normal through it passes through (туу, уу), corresponding to (иу, 14). 


13.5 The interior grid is to be generated by solving the Poisson equations 
(13.36a) and (13.36b) by the SOR technique. With reference to Fig. 13.25, the 
grid points on the lines ABC, CD, DEF and ҒА must be determined first. 
The surfaces ABC and FED are readily determined by ALGEM (lines 64 
- 86). The arc lengths along CD and AF are calculated and the grid points are 
interpolated based on suitable stretching parameters , in a manner equivalent 


to that used on АВС and FED. 


i) Here P=Q=0 in (13.37) and a uniform distribution of points on the bound- 
ary is assumed. Note that the functions P and Q control the clustering of the 
interior points. With P = Q =0, the SOR algorithm for the equations (13.36a) 
and (13.36b) is given by, 


2(o +) FF, = oF + ЕМ ү) = 098 (FR ea Е ыл 
= үр йе FRA) Y (Fri + Fr.) = 0, (1) 


Раа" md PETSA s 


Grid Generation 163 


where А is the relaxation parameter and F = z or y. For F" in (1), and for 
the metric coefficients a’, B! and +’, the latest available value of Е is used. 

The SOR algorithm is implemented by looping over all grid points (j,k). 
Then the rms value of the change in x and y between the n^ and (n + 1)'^ 
iterations 1s calculated. The grid is assumed to have converged when the rms 
change 15 below a prescribed limit. 


ii) The grid determined in the previous section will not be orthogonal. In gen- 
eral, one requires an almost orthogonal grid near the boundaries. To generate 
such a grid the stretching functions on the boundaries must be chosen so as 
to cluster points near A along AB, C along CD, A along AF. For an aerofoil 
computation clustering 1s also required at B along ВА and BC. 

In addition to force orthogonality it 18 necessary to adjust the functions P 
and ©). This is done by replacing the functions P and Q by P, and Q,, P, 
апа Q, in (13.362) апа (13.36b) respectively and empirically adjusting them, 
guided by (13.41) and (13.42). 


13.6 Program ALGEM is easily modified to obtain solutions with two (N=2) 
or three (N—3) multisurfaces. 


| 
| 
| 
| 





Fig.1. Grid produced оп using two multi surfaces, N=2. 


The most important change to the program is to use (13.58) or (13.59) in 
place of (13.77). In addition subroutine SURCH may be modified to calculate 
only the 55 - surface if N=3 and it need not be called if N=2. An integer variable 
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NSU RF is read in. Also changes are made to lines 116 to 127 in ALGEM and 
are indicated in the listing below. 

The grids computed with two and three multisurfaces are shown in Figs. 1 
and 2. The quality of the grids is in accordance with the discussion in the text 
following (13.59). In generating these grids it may be observed that points are 
clustered around the leading edge. When a limited number of points, say 40 
in the 6 direction, are used this produces a less satisfactory grid on the rest 
of the aerofoil surface and in the wake regions. To produce a grid that can be 
employed to compute the flow around the aerofoil it 1s necessary to use a larger 
number of points, say 100 in the £ direction. 














жу 
52255 





5; 


Fig.2. Grid produced on using three multi surfaces, N=3. 


Modifications to ALGEM for Problem 13.6 


С FOUR SURFACES 


IF(NSURF .EQ. 4) THEN 

SH(1) = (1.-S)**2*(1.-A1*S) 
SH(2) = (1.-S)**2*S*(A1+2.) 
SH(3) = (1.-S)*S*S*(A2+2.) 
SH(4) = S*S*(1.-A2*(1.-S)) 
ENDIF 


С TWO SURFACES 


IF(NSURF .EQ. 2) THEN 
SH(4)=S 

SH(1i)=1.-S 

SH(2)=0. 

SH(3)20.0 

ENDIF 


Q 


THREE SURFACES. 


IF(NSURF .EQ. 3) THEN 
SH(1)=(1.-S)*(1.-S) 
SH(2)22.*S*(1.-S) 
SH(3)=0.0 

SH(4)=S*S 

ENDIF 


X(J,K) 
Y(J,K) 
DO 22 L= 1,4 
X(J,K) = X(J,K) + SECL)*XS(L,J) 
Ү(Ј,К) = Ү(Ј,К) + SE(L)*YS(L, J) 
22 CONTINUE 
23 CONTINUE 
24 CONTINUE 


0. 
0. 
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13.7 This problem requires the determination of XS(1,J), YS(1,J) to follow 
the surface of the ellipse and XS(4,J), YS(4,J) to follow the outer rectangle 
shown in Fig.13.24. The following code is inserted after line 49 to achieve this. 


Modifications to ALGEM for Problem 13.7 


C 


C IF INT =2, SET ELLIPTIC SURFACE FOR XS(1, ), YS(1, ) 


C 
IF(INT .NE. 2) GOTO 104 
RF = O.5*(XB(1) *XB(2)) 
RC=0 .98*RF 
AXA = 0.5ж(ХВ(2) - XB(1)) 
BYA = AXA/BAR 
DO 100 J = 1,JMAX 
XD = -1.0 + 2.0*RAC(J) 
XS(1,J) = RF + XD*AXA 
DUM = 1.0 - XD**2 
IF(DUM .LT. 1.0E-10) DUM = 1.0 E-10 
YS(1,J) = BYA*SQRT(DUM) 
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100 CONTINUE 


C SET OUTER RECTANGULAR BOUNDARY, XS(4, ), YS(4, ) 
JMXH = JMAX/2 + 1 
DO 101 JA = 1,JMXH 
J = 2*JA - 1 
ANG = 0.5*PI*RED(J) 
XS(4,JA) = XB(6) 
SANG = SIN(ANG) 
YS(4,JA) = RF*SANG 
IF(YS(4,JA) .LE. YB(5)) GOTO 101 


YS(4,JA) = YB(5) 
CANG = 1.0 - SANG*SANG 
XS(4,JA) = RF*(1.0 - CANG) 


101 CONTINUE 
DO 103 JA = 1,JMXH 
IF((XS(4, ЈА) -XB(5) ) #*2+(YS(4, JA)-YB(J)) **2 
i .GT. 1.0E-02) GOTO 102 
XS(4,JA) = RF - RC 
YS(4,JA) = 0.98*YB(5) 
102 JB = JMAX - JA + i 


XS(4,JB) = XB(4) - XS(4,JA) 
YS(4,JB) = YS(4,JA) 
GOTO 175 


Line 53 becomes statement number 104 and line 91 becomes statement 
number 175. It is also necessary to modify line 12 to read in INT, BAR and 
lines 28,29 to set the boundary points to match Fig. 13.24. Running ALGEM 
with INT=2, BAR=4.0 produces a result equivalent to Fig. 13.24 (c). To obtain 
results corresponding to N=2,3 requires the modifications discussed in Problem 


13.6. 


13.8 Modification of program ALGEM to carry out the two-boundary tech- 
nique (13.49 and 13.50) consists of the following steps. 

1. SURCH is not called. The values of Тү and 7» are read in. 

2. Lines 111 to 124 are modified to make use of (13.49) and (13.50) instead of 
(13.77). The modified lines are listed later. 

The 21 x 21 grid with Ту = Т, = 0.01 is shown in Fig. 1. The grid is quali- 
tatively good, but would need to be finer for an actual computation. Further, 
the spacing of points near the outer boundary is fine, a feature which may 
not be required. A coarser distribution of points in the 7 - direction near the 
outer boundary, as in Fig. 13.22, may be obtained by choosing the stretching 
functions appropriately. 
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Fig. 1. Grid produced by two-boundary technique. 


Modifications to ALGEM for Problem 13.8 


C 


C 


GENERATE INTERIOR GRID 


AJM = JMAX - 1 

DZI = 1./AJM 

DO 24 К = 1,KMAX 

DO 23 J = 1,JMAX 

AJ = J - 1 

ZI = AJ*DZI 

S = SAF(K) + ZI*(SCD(K)-SAF(K)) 


FMU1=2.*S*S*S -3,ж5ж5 +1. 
ЕМ02=-2.ж5ж5жо + 3. ж 5ж5 
ЕМОЗ=5ж5ж5 -2. ж5ж5 +5 
ЕМО4-5ж5ж5 - 5*5 


JPLUS=J+1 

IF(J.EQ.JMAX) JPLUS=J 

JMINUS=J-1 

IF(J.EQ.1) JMINUS=J 
DYAB=(YS(1,JPLUS)-YS(1,JMINUS))/(RAC(JPLUS) -RAC(JMINUS)) 
DXAB=(XS(1, JPLUS)-XS(1, JMINUS) ) / (CRACCJPLUS) -RAC(JMINUS)) 
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DYDC=(YS(4, JPLUS) -YS (4, JMINUS) ) / (RFDCJPLUS) - КЕР” (JMINUS)) 
DXDC2 (XS (4, JPLUS) -XS (4, JMINUS) ) / CRFD(CJPLUS) - КЕ” (ЈМІМОЅ)) 
X(J,K) *FMU1*XS(1,J) *FMU2*XS(4, J)+T1*FMU3*DYAB+T2*FMU4*DYDC 
Y(J,K) sFMU1*YS(1,J)4FMU2*YS (4, J) -T1*FMU3*DXAB-T2*FMU4*DXDC 


13.9 The Vinokur stretching function (J. Comput. Physics, Vol. 50, 1983, pp 
215 - 234) is given by 


s=u/(4+0 - Ax) (1) 
where А = (so/si)1/2 зо, sı being the slope d£/dt at £ = 0 and £ = 1 respec- 
tively, and 

u = 1/2 + tanh[Ay(é — 0.5)]/2tanh( Ау/2). (2) 


Here Ay is the arc length and is typically equal to 1. Of the many forms 
of equations given by Vinokur , (2) is the one to be used for B > 1 where 
B = (5081)!/?. Here we calculate s for equally spaced values of £. 
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Fig.1. Grid produced using Vinokur stretching function and N=2. 


The listing of the modified form of the subroutine STRECH, called 
VINOKUR, is given below. To get a reasonably smooth grid the number of 
points in the 6 direction is about 95. In these calculations, the number of 
points in the 7 direction is 21. 
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Fig.2. Grid produced using Vinokur stretching function and N=3. 


The generated grid for N=2,3,4 are shown in the following Figs. 1,2 and 3. 
As pointed out in many references, Vinokur’s stretching function is capable of 
clustering grid points at the ends as well as in the middle. Here an attempt 
is made to cluster the grid points at À and B ( see Fig. 13.25 in the text). 
То achieve this stretching functions for AB and BC were generated separately 
and patched at B. This was effected by the following lines of code replacing 
line 34 in ALGEM. Additional arrays RABB, RBCC, RBBB are used. 


JBCC=14 
JABB-JMAX-JBCC 
XB32=XB(3)-XB(2) 
CALL VINOKUR(JABB,25.,5. ,RABB,RAB) 
CALL VINOKUR(JBCC,.5 ,.1 ,RBCC,XB32) 
DO 41 J=2,JBCC 
41 RBBB(j-1)=RBCC(j) 
JBCC=JBCC-1 
DO 42 J=1,JBCC 
42 RBCC(J)=RBBB(J) 
JMAX-JMAX-1 
DO 43 J-1,JABB 
43 RAC(J)-RABB(J) *RAB 
DO 44 J=1,JBCC 
44 RAC(JABB+J)=RBCC(J)*XB32+RAC(JABB) 
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RMAX-RAC (JMAX) 
DO 45 J=1,JMAX 
45 RAC(J)=RAC(J)/RMAX 
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Fig. 3. Grid produced using Vinokur stretching function and N=4. 


Modifications to STRECH for Problem 13.9 


Subroutine VINOKUR(NX,S0,S1,T,DZ) 
TANH(A) (EXP(2.*A) -1.) / (ЕХР(2.жА)+1) 


DIMENSION T(51) 


SO SLOPE DZI/DS AT ZI-0 
51 SLOPE DZI/DS AT ZI-1 
T IS THE VALUE OF 5 


С) С) С) С) С) С) 


р21-1./(МХ-1) 

DO 10 I=1,NX 

ZI = DZI*(I-1) 
A-SQRT(SO/S1) 
TANDZ=2.0*TANH(0.5%*DZ) 
BzSQRT(SO*S1) 
ARGG-DZ*(ZI-0.5) 





DZ - DY , TYPICALLY EQUAL TO 1 
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Uz0.5 * TANH(ARGG) /TANDZ 
TCI)=U/(A + (1.-A)*U) 
10 CONTINUE 
RETURN 
END 


13.10 The equations for transfinite interpolation, to be used for the interior 
points, are given by (13.66) and (13.67). For the boundary points different 
procedures are to be used. 


i) The two boundary technique, (13.48), is used on the boundaries. This 
consists of determining the values of x and y for the points on the boundary 
by formulae equivalent to (13.48), i.e., 

z(£,0)—-(1—r)zA t rzc , 

1(0,7) = (l— s)zA t ser. 
With the boundary points determined one can proceed to generate the interior 
grid. The various steps in the implementation of the transfinite interpolation 
can be described as follows. 

1. Determine the distribution of r along ABC and FED. This can be done 
with the help of stretching functions as in the previous examples. 

2. Calculate for every grid point (J,K) the value of 2,(7, K) or Z.(r, s). For 
this purpose (13.66) is written as 


2.(т, 8) = $o(r)ZApr(0, 5) + ф1(7)2ср(1, 8) E (2) 


If ф is chosen as in (13.68) a bilinear interpolation will result. 
3. Implement (13.67) as 


Z(r,s) = Z,(r,s)+ vo(s)|Zanc(r. 0) — Z,(r, 0)] 
+ $1(s)[Zrep(r, 1) ~ Z,(r1)]- 


In the above equations Z is x or y. As indicated in the text, this bilinear 
interpolation cannot ensure orthogonality of the grid. 


(1) 


(3) 


ii) In this case we reverse the order in (13.66) and (13.67) to use (13.66) 
to force orthogonality adjacent to surfaces АВС and F ED. Thus the x coor- 
dinate of (13.66) is given by 

z (r,s) = и1(5)®Авс(т) + и2(5)®кєкр(т) (4) 
+ Tip3(s)(dyapc/drasc)(r) + Topa(s)(durgp/drrgp)(r) , 
and similarly for y,(r,s) using (13.49) and (13.50). In the second stage the 
x coordinate of (13.67) is given by 
z(r,s) = z,(r, s) + do(r)[zAr(s) — 2,(0,5)] 
+ ói(r)Ízcp(s) E т,(1,8)) ; 


where фо(т) and фу(г) are given by (13.68). Some of the modifications used for 
Problem 13.8 are also useful here. 


(5) 
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Inviscid Flow 


14.1 a) The pressure distribution obtained for the flow around a circular 
cylinder (B = 1.0 in program PANEL) with different numbers of panels is 
shown in Fig. 1. It is evident that the pressure distribution agress well with the 
theoretical result when the number of panels is equal to or more than 16. 


4 panels 
8 panels 
16 panels 
32 panels 








180 


Fig.1. Pressure distribution for flow around a circular cylinder. 


b) The pressure distributions for the flow over an ellipse (with B=0.5 and 
0.2) are shown in Figs. 2 and 3 as a function of axial position. Here again, the 
solution is seen to agree well with theory when the number of panels is 16 or 
more. 


c) It is clear from Figs. 2 and 3 that the accuracy of the panel method 
increases with the number of panels. Improvement in accuracy for the flow 


Inviscid Flow 
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Fig.2. Pressure distribution for flow around an ellipse, B—0.5. 
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Fig.3. Pressure distribution for flow around an ellipse, B=0.2. 
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about an ellipse is also evident as the ratio of mznor/major axis 1s reduced 
(i.e. as В is reduced). However this is mainly due to the smaller disturbance to 
the flow created by thinner ellipses. For the same number of panels the solution 
could be improved by clustering more panels at the head and tail of the ellipse 


where the solution gradients are largest. 


14.2 a) The C, distribution computed about a NACA-0012 aerofoil for Ma. = 
0.4 at zero incidence with different numbers of panels is shown in Fig. 1. 
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Fig. 1. С, distribution for flow around a NACA aerofoil. 


Comparing the present results with those in Fig. 14.4, it is clear that the 
solutions with 8 and 16 panels are inaccurate near the leading edge. The remedy 
is to use more panels or to cluster the panels near the leading and trailing edges. 


b) The distribution of 16 panels is now based on a cosine rule so that 
the leading-edge and the trailing-edge regions have more panels than the mid- 
section. The computed С, distribution is shown in Fig. 2. 

Clearly, there is а substantial improvement in the C,-prediction near the 
leading-edge. Still, this distribution varies considerably from that in Fig. 14.4. 
It is possible to place more panels in the leading edge region to improve the 


accuracy. 


An ‘optimal’ distribution of panels will mean that the panels are clustered 
heavily in regions where the flow gradients are high and a coarser distribution 
is used in regions of uniform or near uniform flow. 
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Fig.2. С, distribution for flow around а NACA aerofoil. 


14.3 An SOR solver to replace the subroutines FACT and SOLVE is devel- 
oped based on the algorithm (6.56). Here V is the solution i.e. source density 
(SDE) in Fig. 14.7, А 1s the matrix AA and В 18 the right hand side. The 


listing of the subroutine to implement SOR 1s given later. 


Running this version of the PANEL program it was found that the number of 
iterations to converge was a minimum when А = 1. (А is the relaxation factor, 
see Sect. 6.3.2). The number of iterations required for convergence for the flow 
about a circle and about a NACA 0012 (in brackets) aerofoil are given below. 
In the table NP denotes the number of panels. 


NP А-10 А-12 A-135 


8 . 12(53) 19(43)  37(26) 
16  13(53) 19(33) 70 (26) 
32  13(50) 19(32)  76(26) 
48 13 (49) 20(31) 100 (26) 


Thus, we see that the number of iterations to converge does not seem to depend 
upon the number of panels used, except when the number of panels is high. 
This character may be specific to the present application. 
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Modifications to PANEL for Problem 14.3 


Subroutine SOR(V,B,A,N,FLAM, ITMAX, TOL) 
DIMENSION V(50) ,B(50) ,A(50,50) 
С FLAM, ІТМАХ, TOL ARE READ IN THE MAIN PROGRAM. 

AN=N 
FLAMM=1. - FLAM 
NITER = 0 

5 NITER = NITER +1 
SUMR = 0.0 
DO 20 I=1,N 
DUM = B(I) 
DO 10 J= 1,N 
IF(I.EQ.J) GO TO 10 

10 DUM = DUM - A(I,J)*V(J) 
RES = DUM - A(I,I)*V(I) 
DUM-DUM/A(I,I) 
DUM = FLAM ж DUM + FLAMM ж V(I) 
DIFF» DUM - V(I) 
V(I)-zDUM 

20 SUMR = SUMR + RES*RES/AN 
RMSR=SQRT (SUMR) 
IF(NITER.GT.ITMAX) GO ТО 30 
IF(RMSR . GT. TOL) GO TO 5 
WRITE(*,*) > CONVERGENCE OBTAINED’ 
WRITE(*,*)NITER 
RETURN 

30 WRITE(*,*)' NO CONVERGENCE? 
WRITE(*,*)NITER 


14.4 а) Тһе operation count for the various subroutines in PANEL, taking 
into account only multiplication and division, are as follows. Each mathematical 
library function (Table 4.4) used in MATELM is assumed equal to twenty 
multiplications. 





Subroutine Operation count for Operation count for 





for N panels for 22 panels 
BODY 6N + 3N/2 + 3 168 
МАТЕМ 202N? + 3N 97834 
SURVL 2N? + 21N +8 1438 
POINT 21N + 7 470 
FACT N3/3 + 0.6N? 3840 
SOLVE N? 484 
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If the number of panels is 22 the total operation count is 104234. For small 
values of N, subroutine MATELM dominates the operation count due to the 
relatively expensive evaluation of the mathematical functions. However for N 
sufficiently large, subroutine FACT will eventually be the most expensive part 
of the program to evaluate. 


b) When an SOR solver is used in place of FACT and SOLVE it requires 
N? + АУ operations per iteration. It required 9 iterations to converge when 
N = 22. 


The total operation count when SOR is used is: 105058 


For small values of N the iterative solver provides no advantage, particularly 
since the operation count is dominated by subroutine MATELM. As N in- 
creases the number of iterations to convergence is expected to increase slowly. 
Eventually, for sufficiently large №, it is more economical to obtain the solution 
using an iterative solver. 


Program LAGEN (with an N x N grid) requires the following number of op- 
erations. In the table N; denotes the number of iterations to converge. 


Subroutine Operation count for Operation count for 


for N panels for 22 panels 
GRID 4N* + АТУ + 3 2973 
TRAPA 46№? 22264 
ІТЕН 19N* Nj 91961, 


From Table 12.2, we see that for r, = 1.0 and a 21 x 21 grid, LAGEN requires 
53 iterations. 


Hence the operation count is: 512,000 


The program LAGEN requires more operations than PANEL because the for- 
mer has N? grid points. It may be recalled that PANEL has only N grid points, 
effectively. If subroutine MATELM were made more efficient by avoiding some 
of the mathematical function evaluations the contrast would be even greater. 


14.5 Modification of program PANEL to compute solutions about lifting aero- 
foils is carried out using (14.22) and (14.24). The procedure may be outlined 
as follows. First a source strength distribution o for a non-lifting flow is cal- 
culated making use of the freestream velocity components U,, and Væ. Then 
a unit strength vortex is placed at the centre of every panel. This produces 
a lifting solution, but the boundary condition of zero normal velocity at the 
control points is not met. To counteract this component of velocity, auxiliary 
sources of strength 0% are prescribed. As described in Sect.14.1.4 imposition of 
the Kutta condition gives the weighting 7 to be applied to the solution with 
the vortex and the auxiliary source. The formula (14.24) is modified to include 
the effect of the vortex distribution, thus, 
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= У; (ET. qul uu U. (cos a; + cos от) + V,,.(sin ат + sin от) 
Í Y, (ЕТ)  FTa,;)o$ + 22; (ЕМ + Р№)) 
By combining the effects of the sources of strength c, vortices of strength т, 
auxiliary sources of strength of c^ and the free stream components the lifting 
solution about an aerofoil is obtained. The caculated pressure field is integrated 
to obtain the lift coefficient Сі. Modifications to program PANEL to compute 
the lifting solution are shown in the listing given later. 

The modified program was run for a NACA-0012 aerofoil for Моо-0, and 
«= 0, 2 and 4? incidence. Forty eight panels were uniformly placed around 
the aerofoil. The computed С distribution for various angles of incidence are 
shown in Fig. 1 and the computed values of Ст, and the theoretical values given 
by Сі = 2ra are given in the table. It is observed that the computed value is 
about 1096 higher than the theoretical. It 1s to be noted that the theoretical 
formula is strictly valid for a flat plate. 
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Fig. 1. Cp distribution for lifting flow around a NACA aerofoil.U and L denote upper 
and lower surfaces respectively. 
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Modifications to PANEL for Problem 14.5 


Extra arrays RH SC and SDEC are employed and each has the same dimension 
as RHS and SDE. Line 12 is modified to read in a (called ATCK in the code) 
and it is converted to radians after line 23. The call to MATELM (line 32) is 
modified as 


CALL MATELM(N,M,IPR,RHSC) 
The first line in MATELM is changed accordingly and ЕН5С 1s added to 
the DIMENSION statement. The following lines are inserted after line 47 in 
PANEL. 


DO 200 К-1,М 
SDEC (K) =RHSC (K) 
200 CONTINUE 
CALL SOLVE(N,AA,IKS1,SDEC) 


NHLFF=N/2 + 1 
NL=NHLFF-1 
NM=NHLFF 


FTSD=0 .0 
FTSDC=0.0 
FVU=0.0 
DO 300 J=1,N 
FTSD=FTSD + (FT(NL,J)* FT(NM,J))*SDE(J) 
FTSDC=FTSDC+ (FT (NL, J) *FT(NM, J) ) *SDEC(J) 
1 + FN(NL,J) + FN(NM,J) 
300 CONTINUE 


TOW=-(FTSD + UINF*(CI(NL) +CI(NM) ) 
1 + VINF*(SI(NL)*SI(NM)))/FTSDC 
DO 301 K-1,N 
301 SDEC(K)= TOW*SDEC(K) 

C 
CALL SURVL(N,B,FMN, TOW) 
CLTH=2.*PI*ATCK 
WRITE(6,*) ?THEORITICAL CL>’ ,CLTH 


In subroutine MATELM, ЕН5С is added to the DIMENSION statement and 
the line RH SC(K) = 0 is introduced after line 10. The following statement is 
introduced after line 35. 


RHSC(K) =RHSC(K) *FT(K, J) 


The first line in sunroutine SURVL is changed adding TOW to the list of 
arguments and S DEC is added to the DIMENSION statement. Lines 17 to 41 
are replaced by: 
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DO 2 J=1,N 

QTS=QTS+FT(K, J) *5рЕ(Ј) 

QNS=QNS+FN(K, J) *SDE(J) 

QTS=QTS+FT(K,J)*SDEC(J)+FN(K, J) *TOW 

QNS=QNS+FN(K , J) SDEC(J) -FT(K , J) *TOW 
2 CONTINUE 


QNS + VINF*CI(K) - UINF*SI(K) 
QTS + VINF*SI(K) + UINF*CI(K) 


QNK 
QTK 


UU=UINF-QNS*SI (K)+QTS*CI(K) 

VV=VINF+QNS*CI (K)+QTS*SI(K) 

UU = UU/FAC/FAC 

VV = VV/FAC 

PP=1 .-UU*UU-VV*VV 

IF(FMN .GT. 0.05)PP = ((1.+C1*PP) **GMP-1.)/C2 


CALCULATION OF CL. 


XX=X (K*1) -XCK) 
CL=CL+ PP *XX 
WRITE(6,3)XC(K) , YC(K) ,QNK,QTK,UU,VV,PP,QEX 
3 FORMAT(1X,’XC,YC=’ ,2F6.3,’ QN,QT=’,2F6.3, 
1 > U,V=’,2F6.3,’ P=’,F6.3,’ QEX-',F6.3) 


4 CONTINUE 


WRITE(6,*) ’?CL>? ,CL 


14.6. Application of program SHOCK with the MacCormack scheme (IME = 
1) to the propagating shock problem (pressure ratio = 2.5) produces the shock 
profile shown in the Fig.1. The program 15 applied with and without artifi- 
cial viscosity. The profile given by the Lax-Wendroff scheme is also shown for 


comparison. 


The MacCormack scheme gives a slightly lower overshoot behind the shock than 
the Lax-Wendroff scheme, but the profiles are similar. With artificial viscosity 
the two schemes give almost identical profiles. This is due to the fact that the 
shock profile is controlled more by artificial viscosity than by the basic scheme. 
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Fig. 1. Shock profiles given by various schemes. 
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Fig.1. (Problem 14.7) Shock profile given by Lax-Wendroff scheme with the Lapidus 


form of artificial viscosity, pi /po -2.5. 
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14.7 The form of artificial viscosity due to Lapidus (14.168) is applied with 
the Lax- Wendroff scheme for the propagating shock. As case 1) the artificial 
viscosity is applied to all the components of q and as case 2) it is applied only 
to the first and third components of 4. 


The computed velocity profiles are shown in Figs. 1 and 2. In comparison 
with the form of artificial viscosity given by (14.53), the Lapidus form gives 
a sharper shock profile but a post-shock oscillation 1s present. Whether the 
artificial viscosity is applied to all the components of q (case 1) or to only the 
first and the third ones (case 2) , does not seem to influence the shock profile. 


Conclusions are similar for the strong shock example (i.e. pressure ratio =5). 





0.70 075 0.80 0.85 0.90 0.95 1.00 


Fig.2. (Problem 14.7) Shock profile given by Lax- Wendroff scheme with the Lapidus 
form of artificial viscosity, р/р =9. 


14.8 Program SHOCK is modified to compute the flow in a shock tube. The 
major change in the program is in the imposition of the starting conditions. 
The program SHOCK calculates the post-shock conditions and imposes them 
as starting conditions. Now these are replaced by ші, pj and p; being the 
conditions upstream of the diaphragm before it is burst, i.e. at t = 0. 


The density and pressure profiles given by the Lax-Wendroff scheme with ar- 
tificial viscosity are shown in Fig. 1. The shock and the contact discontinuity 
(seen as à severe density gradient between the shock and the expansion wave) 
profiles have oscillations upstream of them. The contact discontinuity profile 1s 
seen to be greatly smeared. 
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density 


0.0 0.2 0.4 х 0.6 0.8 
Fig.1. Shock tube flow predicted by Lax-Wendroff scheme. 


The exact solution to this flow is calculated using the equations given by Liep- 
mann and Roshko (see problem definition for details) and is shown in the 
following table. Pressure and density values given in the table have been nor- 
malised with respect to those downstream of the shock. 


Region pressure density 
1) between shock and contact discontinuity 3.03 2.124 
2) between contact discontinuity and 3.03 3.409. 


foot of the expansion wave 


The computed results agree closely with these values. The density profile on 
either side of the contact discontinuity is oscillatory, but a mean curve would 
give the values tabulated above. 


14.9 The shock profiles computed with the FCT scheme are given in Fig. 1 
(pi/p2 = 2.5) and Fig. 2 (p1/p2 = 5). 


The velocity profiles for the moderate shock strength is free of oscillations 
except that a small kink develops for the case 1) which gives a sharp shock 
profile spread within only two grid points. The other cases give a ‘three-point’ 


shock. 
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Fig. 1. Shock profile given by FCT algorithm, pi /p> = 2.5. 
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Fig. 2. Shock profile given by FCT algorithm, р/р» = 5.0. 
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But, for the strong shock, we notice that case ii) gives an unacceptable profile. 
The other cases produce a ‘three-point’ shock as before. Case iii) is slightly too 
dissipative. Cases i) and iv) are comparable except that case i) has a slight 
trailing oscillation. By varying the values of 70, т and 72, one may get а clean 
shock profile even for a strong shock. 


14.10 Applying the FCT algorithm for the shock-tube flow, the results shown 
in Fig. 1 are obtained. 






pressure 


density 


0.0 0.2 0.4 x 0.6 0.8 
Fig.1. Shock tube flow predicted by FCT algorithm. 


Comparing with the results for Problem 14.8, we notice a sharper shock profile 
and a cleaner pressure prediction upstream of the shock. The contact disconti- 
nuity behaviour shows no improvement. Adjusting the values of 7%, 71 and 72 in 
the scheme will help to improve the performance of the scheme near the contact 
discontinuity. FCT algorithms are generally more effective in producing sharp 
shock profiles than in producing sharp profiles across contact discontinuities. 


14.11 The various steps involved in the use of SOR iteration to compute the 
transonic, small disturbance equation for the domain shown in Fig. 14.34 are 
as follows: 

1. Construct an appropriate grid. The two boundary technique described in 
Sect. 13.3.2 can be used. The lower boundary is defined by y = 0 for z < —1 
and z > 1, and y = r(x? — 1)? for —1 < z € 1. The top boundary is placed at 
y = 1. The boundaries AD and BC are placed at z = —2 and z = 2. A suitable 
number of points may be chosen in the т and y directions, say 41 x 21. 
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2. Develop an SOR algorithm to solve (14.135) i.e. 

Рк + Qjk — Hj kPik + Bj-ikPj-ik = 0. (1) 
Substituting the expressions for P and Q, given by (14.134), the above equation 
simplifies to 


k 
(1— дук) (zm (буны — 2; + ój1x)— 


0.5(y + 1 
25 A ELE = 7—1,& + 2ф;,к(Фу-1,к — бна) 
Ё 
+ 5-1,8 (ен — 26; ik + Ффу—2,к)— (2) 
0.5(7 + 1 
250 12 (qj, = eee + 26;~1,4(¢j-2,k — 2) 


bj eta — 20jk — Фук-1 

н = 

а О 

Let k / Az = Ci; 0.5(у--1)/ Ат? = Cs. 1/Ay? = С». 


The above equation сап be rearranged as 


j,k (20 — ujk)C1 — 2С›ф;-1,к + 2C20j41.k + иу—1‚кС1 

— ру Сәфук + И;-іаС29)-,- 2c.) 

= (овна + бл) – Ca B) (3) 
— Hj-1,k (с1(-20;-1 + ój-2) — Ca( 745 2, + 26)-146)-24)) 

— C3 (фе F 22) . 


Equation (3) can be solved using the SOR technique described in Sect. 6.3. 


NOTE: a) Typically, using SOR, the solution at the (n + 1)" iteration level is 
given by óZ = AOE - ME (4) 
While using (3), the ó; 4 terms appearing within the brackets on the LHS, are 
replaced by Uu 

b) The terms within the brackets on the LHS, may be small at times, leading to 


possible instabilities. Special techniques may have to be used, such as limiting 
the smallest size of the bracketed terms. 


3. The iteration is carried out from J = 2 to NX — 1 and from J = 2 to 
NY — 1. The values of ó on the boundaries are supplied through the boundary 
conditions. 
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14.12 The pseudo-transient equivalent of (14.137) сап be written as 
Oó Of ð$ д (,99 
ae E ыйл кызы Шық Рет, 
ді т Әт (+ Ox J ду ë Оу | (1) 


and density is governed by 


p= {rosy nun, li- (z) - GE) 


Equation (1) is discretised as, 


дф ú 
opcs (3) 


1/(у-1) 
| . (2) 





-9Ф -99 1 
where 5; = 025) +1/2,к — (bid Az 
4) 
, Og ,9Ф 1 ( 
+ [(р By ^en = (p By ae де 


p is the modified density term (see 14.143) to introduce artificial viscosity 
and Pj+1/2,k = (1 7 Vj k)Pj+1/2,k + Vjkpj—iJ2,k - (5) 
The definition of и; k etc. can be obtained from the text. 


It may be noted that density terms are not replaced in the y-derivatives. The 
given body is slender and any supersonic flow is expected to be only in the 
x-direction. 


Now, substituting for р and terms like (06/02) 544) к 
Le. (06/02) рәк = (Oj41,k — Ф;)/Ат, (4) becomes, 


дф 1 
ЕТ дт (C — videre tipa) a Фа) 





= (а — Vj~1,k)Pj—1/2,k + "j-xaPj-afa) (Фк — ба) (6) 


s losen — фк) — pj i2 (6$. — 2m] = 0. 


1 
Ay? 
Equation (6) can be written in terms of corrections as, 


At At 


22 ы е (7) 


Age + |] $ 


Carrying out the linearisation of ф terms, the above equation simplifies to 
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Е At 
Ax? 





1 | [(1 — Vj k)Pj+1/2,k F Vj kpj-1/2.k] (Ad jai = Аф;ь)) 


— [(1 — vj-1,k)Pj-1/2,k + Vj-1,kPj-3/2,k] (АФ — дф) (8) 

At 
- дуї [р,к+1/2(Афуе+1 — Афу) — рук-1/2(Афу„к — Адҙа-1)) 

= —(RHS)" , 

where (RH S)" is the sum of all the spatial derivatives in (6) evaluated at the 
‘n’ level. 
Equation (8) is of the form NAH! = —wR , (9) 
where w is a scaling factor and R = (АН 5)". 


Following (14.156) and (14.157) the approximate factorisation technique is im- 
plemented as 


а- AUIL AS реет pA; (10) 
and [1— ALL; (p)L, J Дф = Афу. (11) 


Now CORET 


1 
= 22 | [(1 — ujk)0;+1/2,k + Vi kPj-1/2,k| (Ad ja — Аф) (12) 


— [(1 — vj-1,k)Pj-1/2,k + Vii, kPj-3/2,k] (АФь- Ада) i 


(ову) aet 
I (13) 

= А? [oj ki 2 АФу,к+а — Афу) — рРук-1/2(4Афу,к — Афук-а1)]. 

The various steps involved іп the implementation of this technique are аз fol- 

lows. 

1. Construct a suitable grid similar to the one generated for Problem 14.11. 

2. Impose the starting values at every grid point. 

3. Choose a ‘time’ step At. 

4. Calculate the residual R at every grid point. 


5. Perform the z-direction sweeps using (12) and calculate Аф” at every grid 


point. 
6. Using (13) perform y-direction sweeps and calculate AQ". 
7. Update the ¢ values and calculate p at every grid point. 
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8. Repeat steps 4-7 until the rms value of RHS is below a prescribed tolerance. 


14.13 i) When we apply an equivalent approximate factorisation to (14.156, 
14.157) to the Laplace equation, Фу» + Фуу = 0, we have 


[1 — aL; } АФ? р = owR;k, (1) 
(1-а1)у)Ад,ы- Афь. (9) 
R;k is the RHS given by 0*9/0z? + 0°6/Oy* = Lrs Ly. (3) 
Using central differences, L, , ó = (фун — 26; + $;-1)/Az? etc. (4) 


It is straightforward to discretise (1) and (2). A program developed to solve (1) 
and (2) is listed below. 


The errors obtained on running this program for various grids are shown below. 


Grid No. of Rms Error RmsgHs Solution Error 
iterations of Corrections 

6x6 64 0.77 x 107° 0.127 x 107° 0.256 x 107? 

ТЇ 62 0.97 x 107% 0.159 x 1077 0.650 x 107? 

21х21 81 0.86 х 1076 0.960 x 1071? 0166 x 107% 


Listing of code for Problem 14.13 


Program PR14P13 

IMPLICIT DOUBLE PRECISION (А-Н,0-2) 

DIMENSION PHI(65,65) ,PHIO(65,65) ,A(5,65) ,R(65) 
1,DUM(65) ,XX(65) ,YY(65) , PHIEX(65,65) ,CORR(65,65) 


С 
С READ CONTROL PARAMETERS. 
C 
OPEN (5,FILE=’PR1413.DAT’) 
REWIND 5 
READ(5,*)NX,NY,ALPHA,WOM,NLIMIT,RLIMIT 
OPEN (8,FILE2'PR1413.0UT?) 
C 
NXX=NX-1 
NX2=NX-2 
NYY=NY-1 
NY2=NY-2 
PI=3.1415927 
NITER=O 
% | 
С STEP SIZE ІМ Х AND Y DIRECTIONS. С 
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DX=1./NXX 
DY=1./NYY 
DXX=DX*DX 
DYY-DY*DY 

DO 4 I-1,NX 
XX(I)-DX*(I-1) 
DO 6 J=1,NY 
YY (J) =DY*(J-1) 


IMPOSE STARTING CONDITIONS. 


ро 10 Is1,NX 
DO 10 J=1,NY 
PHIO(I,J)=0.0 
PHI(I,J)=0.0 


BOUNDARY CONDITIONS 


DO 20 I=1,NX 

X=DX* (I-1) 

PHI(I,1)-EXP(0.5*PI*X) 
PHI(I,NY)-0.0 

DO 30 J=1,NY 

Y=DY* (J-1) 

PHI(1,J)=COS (0.5*PI*Y) 

PHI (NX, J)=EXP(PI*0.5)*COS(0.5*PI*Y) 


DO 40 I=2,NXX 
DO 40 J=2,NYY 
PHI(I,J)-PHIO(I,J) 


CALCULATE THE LEFT HAND SIDE TERMS. 


AX=1./DXX 
BX=-2./DXX 
CX21./DXX 


AY=1./DYY 
BY=-2./DYY 
CY=1./DYY 


CALCULATE THE EXACT SOLUTION. 
DO 50 I=1,NX 


DO 50 J=1,NY 
PHIEX(I,J)=EXP(0.5*PI*XX (I) )*COS(0.5*PI*YY(J)) 


C1 


60 


TO 


80 
90 
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START THE SWEEPS. 


NITER-NITER*1 
TOTAL=0.0 


X SWEEP. 
DO 90 J=2,NYY 


DO 70 І-2,МХХ 
II-I-1 
R(II)=(PHI(I-1,J)-2.*PHI(I,J)+PHI(CI+1,J))/DXX 
R(II)=R(II)+(PHI(1,J-1)-2.*PHI(1I,J)+PHI(I,J+1))/DYY 


TOTAL-TOTAL*R(II)*R(II) 
R(II)-ALPHA*WOM*R(II) 


A(1,II)20.0 
A(2,II)--ALPHA*AX 
A(3,II)-1.-ALPHA«BX 
A(4,II)--ALPHA*CX 
A(5,II)20.0 
CONTINUE 

A(2,1)=0.0 
A(4,NX2)=0.0 

CALL BANFAC(A,NX2,1) 
CALL BANSOL(R,DUM,A,NX2,1) 
DO 80 I=2,NXX 

CORR (I,J) =DUM(I-1) 
CONTINUE 


RMS OF RHS. 
RMS-SQRT(TOTAL/ (NXX*NYY) ) 
Y SWEEP. 

DO 120 I=2,NXX 

DO 100 J=2,NYY 

JJ=J-1 

R(JJ)=CORR(I,J) 
A(1,JJ)20.0 


A(2,JJ)=-ALPHA*AY 
A(3,JJ)=1.-ALPHA*BY 
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A(4,JJ)=-ALPHA*CY 
A(5,JJ)=0.0 

100 CONTINUE 
A(2,1)=0.0 
A(4,NY2)=0.0 
CALL BANFAC(A,NY2,1) 
CALL BANSOL(R,DUM,A,NY2,1) 
DO 110 J=2,NYY 

110 PHI(I,J)=PHIO(I,J)+DUM(J-1) 

120 CONTINUE 
IF(RMS.LT.RLIMIT) GO TO 200 
IF(NITER.GT.NLIMIT) GO TO 210 
CHG=0.0 
СНЕ-0.0 
DO 140 I=1,NX 
DO 140 J=1,NY 
CHEEZPHI(I,J)-PHIEX(I,J) 
CHE=CHE+CHEE*CHEE 
CHGG=PHI(I,J)-PHIO(I,J) 
CHG=CHG+CHGG*CHGG 

140 PHIO(I,J)=PHI(I,J) 
CHRMS=SQRT (CHG/ (NXX*NYY) ) 
SOLNER=SQRT (CHE/ (NXX*NYY) ) 
GO TO 60 

200 WRITE(8,*)'CONVERGED RESULTS? 
GO TO 250 


210 WRITE(8,*)'CONVERGENCE NOT REACHED’ 


250 WRITE(8,*)’NO OF ITERATIONS=’ ,NITER 
WRITE(8,*)?RMS CORRECTION=’ , RMS 
WRITE(8,*) RMS RHS=’ ,CHRMS 
STOP 
END 


п) The approximate factorisation scheme discussed above can be incorpo- 
rated into a multigrid cycle in the manner indicated in Fig.6.21 of the text and 
may be summarised as follows: 

1. Starting with the fine grid (say 41 x 41) three more grids, (21 x 21), 
(11 x 11) and (6 x 6) are chosen such that the grid size is successively halved. 

2. A relaxation is performed using the procedure described in section (1) 
with the relation AM $M = 0 оп the finest grid. 

3. On the next coarser grid , ‘m’, a relaxation is carried out using, 


AU ama = AS EN [p (1) 
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where $""* is the approximate solution sought, ф”” is the available solution on 
the current grid and Г үү is the restriction operator for interpolating the fine 
grid solution to the coarse grid (m). 

4. 'This process 1s continued until the coarsest grid 1s reached, i.e. 6 x 6 in 
the present case. 

5. On the coarsest grid, the relaxation procedure is applied to 


Al! = 0. 


6. As indicated in Fig. 6.2, it is now necessary to move to successively finer 
grids. On the next finer grid the relaxation scheme is given by 


фта = Qu + [mrt (oes 0 Фф") : 


7. This process of prolongation is continued until the finest grid (41 x 41) 
is reached. 

8. Steps 2 to 7 are repeated until a convergence criterion is satisfied. 

A multigrid cycle will be very efficient in that it can give a converged so- 
lution in a very small number of iterations. The operation count for a single 
iteration does increase as the solution is to be processed over several grids. 
Consider a multigrid cycle consisting of four grids. If the CPU time required 
on the fine grid is 1 unit, then the total time per multigrid cycle will be 


W W W . 
N; (w + 4 + * + sc units 


which is equal to 1.4375 units. But the small number of iterations required 
reduces the CPU time requirement. 


СТЕР Solutions Manual: Chapter 15 


Boundary Layer Flow 


15.1 А tridiagonal system of equations to implement (15.98) can be derived 
as follows. Substituting for u2,U2, L,u; and Гуч; in (15.98), we have 


n+l n 
nd nad uu o MT 
(uj кала) (S + 


(wr? pe 9%) (azur Ты m) (1) 


n+] n 
= (аға) + (1-2) (г) + ‚(э +(1- iby). 


Starting from the solution at ‘n’, several iterations are performed to update it 
to the level ‘n+1’. Denoting the intermediate iteration level by k, and writing 
и? апа оў аз Aus + (1—A)u} and Av} +(1—A)v? , we have after simplification 


k+1 
и? (um — 4) + ЖЕСЕ = i) 
"Y Am 
Tibe Sun Е 4-4) |22 


- да [unes] Pas шаа) 


„Аж 


TA 


k+1 n 
Dus -2ujkuja) +(1—А)(иуы — 2uj  uj-1) i 
Substituting y = 0.50: Ат/ Ау and 6 = vAz/Ay?, we have, 


k+1 
k+1 
aou T r (upa -ш-4) - бА(иў+1 — 2и; + u;-1) 


Tt е 3 
= чи] x0 (н cua) дорама] (3) 


+ Az(1 — А) (ш-че:| "+ ó(1— ^)(и;+1 — 2и; + Шел)" 
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ie. (ух – A&)uEH + (ud + дуа + (4A — 6A) uH 
= d; — RH 5 of (3) , 


as required. 


15.2 The changes required in program LAMBL to apply the scheme developed 
in Problem 15.1 are indicated in the listing given below. Two additional arrays 
UK and VK have been used. The listing shown replaces lines from 59 to 102 of 
LAMBL. 

On running the program for the specified number of points in X and Y 
directions, the following rms errors in the velocity distribution are obtained. 


Case JMAX Ат NMAX A205 4-10 
(a) 41 0.1 20 0.000455 0.00454 
0.2 10 0.000501 0.00856 

0.4 5 0.000612 0.01480 

Case Ат NMAX JMAX A205 А=10 
(b) 0.02 100 21 0.00064 0.00056 
11 0.00203 0.00144 

6 0.00892 0.00823 


In case a) we have a fine mesh in the y direction and the major contribution 
to the solution error is from the discretisation in the x direction. We find that 
the errors are almost an order of magnitude smaller for the Crank-Nicolson 
scheme. Further, the fully implicit scheme, i.e. when А--1.0, exhibits a first- 
order convergence, the error decreasing as Az. For the Crank-Nicolson scheme 
the error has a poor dependence on Az. In case b) the mesh is fine in the x 
direction so that the errors are dominated by those due the discretisation in y 
direction. Now both the Crank-Nicolson and the fully implicit schemes exhibit 
a second-order convergence, i.e. the error decreases as Ay*. It is of interest 
to note that program LAMBL exhibits a similar behaviour and the numerical 
values of the error are closer to those observed for the Crank-Nicolson scheme. 


Modifications to LAMBL for Problem 15.2 


DO 66 Jz1,JMAX 
UK(J) =UCJ) 

66 VK(J)sV(J) 
UXN-UE 
UEXN-UEX 
DO 10 N = 1,NMAX 
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X = X + DX 
UE = X**BETP 
UEX = BETP*UE/X 
555 CONTINUE 
DO 7 J = 2,JMAP 
рү = Y(J) - Ү(1-1) 
DYY-DY*DY 
JM2J-1 
C 
ULAM=FLAM*UK (J) +F LAMM*U (J) 
VLAM=FLAM*VK (J) +FLAMM*V (J) 
GAM=0 .5*VLAM*DX/DY 
DEL=DX/DYY 
B(2,JM) = -FLAM*(GAM + DEL) 
B(3,JM) = ULAM + 2.*FLAM *DEL 
B(4,JM) = FLAM*(GAM - DEL) 
RHS(JM) = ULAM*U(J) 
1 -0.5*FLAMM*VLAM* (DX/DY) * (U(J*1) -U(J-1)) 
2 «DX*FLAM*UE*UEX + DX*FLAMM*UXN*UEXN 
3 «FLAMM*DX*(U(J-1) -2.*U(J) U(J* 12) /DYY 
7 CONTINUE 
RHS(JM) = RHS(JM) - B(4,JM)*UE 
B(4,JM) = O. 
B(2,1) = 0. 
C. 
C SOLVE BANDED SYSTEM OF EQUATIONS 
C 
CALL BANFAC(B, JM,1) 
C 
CALL BANSOL(RES,UP,B, JM, 1) 
e 
UP(JMAP) = UE 
C 
C OBTAIN V BY INTEGRATING CONTINUITY 
C 


DUM = 0. 
SUM = 0.5*(Y(2) - Ү(1)) 

DO 8 J = 2,JMAX 

DUMH = DUM 

VM(J) = VK(J) 

DY = Y(J) - Y(J-1) 

DUM = 1.5*UP(J-1) - 2.*U(J) + 0.5*UM(J) 
VK(J) = VK(J-1) - 0.5*(DY/DX)*(DUM + DUMH) 
CONTINUE 

SUMU=0 

DO 88 1-2,2МАХ 
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88 SUMU=SUMU + (UP(J-1)-UK(J))**2 
RMSU = SQRT(SUMU/JMAX) 
IF(RMSU .LT. TOLU) GO TO 89 
DO 87 J-2,JMAX 
87 UK(J)=UP(J-1) 
GO TO 555 
89 CONTINUE 
DO 889 J=2, JMAX 


UM(J) = U(J) 
U(J) = UP(J-1) 
V(J) = VK(J) 


IF(J .EQ. JMAX)GOTO 889 

SUM = SUM + 0.5*(1. - U(J)/UE)*(Y(J+1)-Y(J-1)) 
889 CONTINUE 

DISP = SUM/SQRE 

UYZ = (RYP*U(2) - U(3)/RYP) /RY/CY(C2) -YC1)) 

CF = 2.*UYZ/SQRE/UE/UE 

FDD 0.9278 

DUM = 0.25*X*UE*RE* (2. -BETA) 

EXCF = FDD/SQRT(DUM) 

WRITE(6,9)N, X, EXCF,CF,DISP,UE 

9 FORMAT(? N=’,13,’ Х-”,Ғ4.2,? EXCF=’,F9.6, 
1 'CFz!,F9.6,2X," DISP=’,F9.6,’ UE-!,F6.3) 


UXN=UE 
UEXN=UEX 
10 CONTINUE 


15.3 The following changes are made in LAMBL to compute boundary layer 
flow over a flat plate. 

1. The data statements are changed as suggested. 

2. Statements 106 and 107 are replaced so as to calculate EXCF as 
0.664(R.,) 1⁄2, 

3. In the data-file, 8 is set equal to 0. 

On running the program, a rms solution error of 0.00483 is obtained. This 
is larger than for the case, 2--0.5, shown in Fig. 15.5. It is also apparent that 
the skin friction coefficient is not predicted so accurately in the present case, 


as for G=0.5. 
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Output for Problem 15.3 
PROBLEM 15.3 SOLUTION, BETA= 0.00 
3МАХ-- 21 DYM= 0.40 RY= 1.00 


NMAX= 19 DX- 0.100E+00 XST= 1.00 RE= 0.100E+06 


N= 1 Х--1.20 EXCF= 0.001917 CF= 0.001918 DISP= 0.005974 UE= 1.000 
N= 2 Х--1.30 EXCF= 0.001842 СЕ= 0.001847 DISP= 0.006213 UE= 1.000 
N= 3 Х--1.40 EXCF= 0.001775 CF= 0.001779 DISP= 0.006440 UE= 1.000 
N= 4 Х--1.50 EXCF= 0.001714 CF= 0.001719 DISP= 0.006661 UE- 1.000 
N= 5 Х--1.60 EXCF= 0.001660 CF= 0.001665 DISP= 0.006876 UE= 1.000 
N= 6 Х--1.70 EXCF= 0.001610 CF= 0.001616 DISP= 0.007086 UE- 1.000 
N= 7 X=1.80 EXCF= 0.001565 СЕ- 0.001571 DISP= 0.007289 UE- 1.000 
N= 8 X-1.90 EXCF= 0.001523 CF= 0.001529 DISP= 0.007485 UE= 1.000 
N= 9 Х--2.00 EXCF= 0.001485 CF= 0.001490 DISP= 0.007676 UE= 1.000 
N= 10 Х--2.10 EXCF= 0.001449 СЕ-- 0.001454 DISP= 0.007861 UE= 1.000 
N= 11 Х--2.20 EXCF= 0.001416 CF= 0.001421 DISP= 0.008042 UE= 1.000 
N= 12 X=2.30 EXCF= 0.001385 CF= 0.001390 DISP= 0.008218 UE= 1.000 
N= 13 Х--2.40 EXCF= 0.001355 CF= 0.001361 DISP= 0.008389 UE= 1.000 
N= 14 X=2.50 EXCF= 0.001328 CF= 0.001333 DISP= 0.008555 UE= 1.000 
N= 15 Х--2.60 EXCF= 0.001302 CF= 0.001307 DISP= 0.008717 UE= 1.000 
N= 16 X=2.70 EXCF= 0.001278 CF= 0.001283 DISP= 0.008875 UE= 1.000 
N= 17 Х:-2.80 EXCF= 0.001255 CF= 0.001259 DISP= 0.009028 UE- 1.000 

— 18 Х--2.90 EXCF= 0.001233 CF= 0.001237 DISP= 0.009177 UE= 1.000 
N= 19 X=3.00 EXCF= 0.001212 CF= 0.001217 DISP= 0.009322 UE= 1.000 
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the cases. The computed rms errors for the velocity profiles for the various 
cases are tabulated below. 








Case rms error 
Ал = 0.1, 19 stations 0.000674 
Ат = 0.2, 9 stations 0.000765 
Arai =0.01, Ат,а:--0.2, FLOW = 0.1, 14 stations 0.000487 
Armin —0.01, Ат,аг--0.3, FLOW = 0.2, 9 stations 0.000354 





| The table shows that the accuracy is not impaired by changing the step 
size Ar dynamically. Further, adaptive gridding gives the required accuracy in 


fewer steps than when a uniform grid is used. This is also demonstrated in the 
су distribution shown in Fig.1. 


uniform mesh, Ax=0.2 









uniform mesh, Ах-0.1 


nonuniform mesh, 14 stations 


nonuniform mesh, 9 stations 
exact 


RMS= 0.483E-02 


15.4 The change in су is chosen as the criterion to adaptively change the value 
of Az in LAMBL. The programming logic closely follows lines 122 to 134 of 
program DOROD. Implementation of this adaptive meshing requires two major 
changes to be carried out in program LAMBL: 

1. To determine the fractional change in су at any station and then increase 
or decrease the step size Az. If the fractional change in су (called CFCG) is 
more than 1.25 times a pre-selected number, FLOW (typically 0.1 or 0.2), then 
Ат is halved. On the other hand if CFCG is less than 0.75 x FLOW the mesh 
size Ат is doubled. The changes in Ат are carried out under the constraint: 
AL min < AL < AZ тах. 

2. A consequence of changing Ат is that it is no longer uniform. The calcu- 
lation of LH S and RH S in LAMBL assumes a uniform Az. Changes are made 
to generalise these calculations to the case of nonuniform Az. 

The following listing of the program shows the changes made to program 
LAMBL and replaces lines 60 to 112. An additional array VP is now used to 
store the temporary updated values of the v velocity. Setting NCONTR =1 
causes the program to control the step size Ат. Typical су distributions are 
compared with that for the uniform Az case in Fig. 1. For the cases where Ат 
is dynamically changed, values of Atmin, Атта: and FLOW were prescribed. 
It is observed that the су distribution is close to the exact distribution for all 


c, x 1000 





2 


1 2 3 
x/L 


Fig.1. c; distribution with uniform and non-uniform meshes in flow direction. 


Modifications to LAMBL for Problem 15.4 


PR15P4 
DX IS VARIED IN RESPONSE TO THE CHANGES IN CF. 


CHANGES IN THE CALCULATION OF LHS AND RHS. 


С) С) С) C3 €) 
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555 CONTINUE 


C 


Сз 


X = X + DX 

UE = X**BETP 
UEX = BETP*UE/X 
DO 7 J = 2,JMAP 


UC-U(J) + (DX/DXO) *(U(J)-UM(J)) 
vc=V(J) + (DX/DXO) *(V(J)-VM(J)) 


DY = Y(J) - Y(J-1) 

IM=J-1 

P = VC*DX/RYP/DY 

Q = 2.*DX/(RYP*DY*DY) 

B(2,JM) = -P*RY - Q 

B(3,JM) = 1.5*UC + Q*RYP/RY + P*(RY-1./RY) 

B(4,JM) =  P/RY - Q/RY 

RHS(JM) = UE*UEX*DX + 0.5*(DX/DX0) *UC*(U(J)-UM(J)) 
1 + 1.5*UC*U(J) 


7 CONTINUE 
RHS(JM) = RHS(JM) - B(4,JM) *UE 
B(4,JM) = 0. 
B(2,1) = 0. 


SOLVE BANDED SYSTEM OF EQUATIONS 
CALL BANFAC(B, JM, 1) 

CALL BANSOL(RHS,UP,B,JM,1) 
UP(JMAP) = UE 


OBTAIN V BY INTEGRATING CONTINUITY 


DUM = 0 
VP(1)=0.0 
SUM = 0.5*(Y(2) - Y(1)) 


DO 8 J = 2,JMAX 

DUMH = DUM 

DY = Y(J) - Y(J-1) 

DUM = 1.5*(UP(J-1) - U(J)) -0.5*(DX/DXO) 

1 *(U(J)-UM(J)) 

VP(J) = VP(J-1) - 0.5*(DY/DX)*(DUM + DUMH) 

IF(J .EQ. JMAX)GOTO 8 

SUM = SUM + 0.5*(1. - U(J)/UE) *(YCJ*1) -YCJ-1)) 
8 CONTINUE 

DISP - SUM/SQRE 
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C 
G DECIDE WHETHER DX IS TO BE CHANGED. 
C 

IF(NCONTR .EQ. 0) GO TO 110 

UYZ = (RYP*UP(1) - UP(2)/RYP)/RY/ (Y(2) -Y (15) 

CF = 2.*UYZ/SQRE/UE/UE 
C 


СЕСС=АВЅ (СЕ-СРО) /CFO 
IF(0.5*DX .LT. DXMIN) GO TO 121 
IF(CFCG .GT. 1.25*FLOW) THEN 
X-X-DX 
DX =0.5*DX 
GO TO 555 
ENDIF 
121 CONTINUE 
DXO-DX 
IF(1.5*DX .GT. DXMAX) GO TO 122 
IF(CFCG .LT. 0.75*FLOW) DX=1.5*DX 
122 CONTINUE 
110 CONTINUE 
DO 123 J=2, JMAX 
UM(J)=U(J) 
VM(J)=V(J) 
V(J)=VP(J) 
123 U(J)-UP(J-1) 
10 CONTINUE 


15.5 The modification to LAMBL to adaptively extend ула» is carried out as 
follows. A study of the output from LAMBL shows that уља may be varied 
according to the formula: 


Утат = Ymar, o + 1.6(10006* — 33). (1) 


and where a nonuniform mesh is used in the y-direction, the mesh spacing close 
to the wall may be varied as follows: 


Aymin = АУ тіп + 0.8(10006* - 3.3). (2) 


The numerical constants appearing in the above equations were obtained after 
establishing the rate of growth of boundary layer for a few cases and are problem 
dependent. 

In the modified code, the new value of ymaz is evaluated after the solution 
is calculated at a station. The distribution of grid points in the y direction 1s 
then calculated keeping J M AX the same. A uniform distribution presents no 
problem. But when the grid points are to be distributed nonuniformly, a new 
subroutine MERAT is called. This subroutine calculates the value of r, given 
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Aymin and Ymar by iteration. Once ry is known, the grid point distribution 18 
easily obtained. 

As the next step, values of u" 1,v"7!,u^,v" (UM, VM, U and V in the 
code) are interpolated in subroutine INTERP onto the new y-grid. A listing 
of the modifications to program LAMBL is given below along with those for 
the new subroutines MERAT and INTERP. The changes to LAMBL are an 
insert after line 111. When variable NADAPT =1 the program changes ymar 
adaptively. To facilitate interpolation of velocities on to the new y-grid, new 
arrays YNEW, UNEW and VNEW have been used. The outputs from the 
modified program are also enclosed. In the first case, the mesh in the y direction 
is uniform and in the second case it is nonuniform. It is observed that ymaz 
ranges from 6 to 8.043, and from 7 to 9.378 respectively. The rms error values 
are now higher than for the case where Ymar is uniform. The error also increases 
for the case where the mesh in the y-direction is nonuniform. This 1s due to the 
interpolation of the velocity values onto the new y-grid at every station. 


Modifications to LAMBL for Problem 15.5 


C PR15P5 
C 
IF(NADAPT .EQ. 0) GO TO 10 
C 
C CALCULATE NEW Y VALUES 
C 
YMAX = YMAXO* 1.6*(1000.0*DISP - 3.3) 
IF(RY .GT. 1.0) THEN 
DYMN = DYM* .8*(1000.0*DISP - 3.3) 
CALL MERAT(RYY,YMAX , JHAX, DYMN) 
YNEW(1) = 0. 
DY = DYMN/RYY 
DO 302 J = 2,JMAX 
DY = DY*RYY 
YNEW(J) = YNEW(J-1) + DY 
302 CONTINUE 
ELSE 
DDY = YMAX /JMAP 
YNEW(1)=0.0 
DO 301 J22,JMAX 
301 YNEW(J)SYNEW(J-1) * DDY 
C 
ENDIF 
C 
C INTERPOLATE THE UAND V VALUES TO THE NEW GRID 
C 


CALL INTERP(JMAX,Y,U,YNEW, UNEW) 
CALL INTERP(JMAX,Y,V,YNEW, VNEW) 
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CALL INTERP(JMAX,Y,UM, YNEW, UMEW) 
CALL INTERP(JMAX,Y, VM, YNEW, VMEW) 


DO 303 J=1, JMAX 
Y (J) =YNEW(J) 
UC J) =UNEW (1) 
UM( J) =UMEW (J) 
V(J) =VNEW (J) 
303 VM(J)=VMEW(J) 
10 CONTINUE 


Subroutine INTERP(JMAX,YG,UG,Y,U) 
IMPLICIT DOUBLE PRECISION (А-Н,0-2) 
DIMENSION UG(41) ,YG(41) ,Y(41) ,U(41) 
JMAP=JMAX-1 
U(1)=0.0 
U(JMAX) -UG (МАХ) 
DO 10 J=2,JMAP 
DO 5 K=2,JMAP 
ІЕ(Ү(Ј) .GT. YG(K) .AND. Y(J) .LE. YG(K*1)) GO TO 4 
GO TO 5 

4 GRAD =(UG(K+1) - UG(K))/(YG(K+1)-YG(K)) 
UC J)=UG(K) + GRAD*(Y(J) - YG(K)) 

5 CONTINUE 

10 CONTINUE 
RETURN 
END 


Subroutine MERAT(R,YMAX, JMAX,DYMN) 
IMPLICIT DOUBLE PRECISION (А-Н,0-2) 
JMAP-JMAX-1 
АМАРР=1./ЈМАР 
R=1.001 

5 ARGG=(DYMN -YMAX + YMAX*R)/DYMN 
RH=EXP (AMAPP*LOG (ARGG) ) 
IF (ABS (RH-R) .LT.10E-06) GO TO 999 
R=RH 
GO Т0 5 

999 RETURN 

END 


Sample output for Problem 15.5 

Uniform mesh 

FALKNER-SKAN SOLUTION, BETA= 0.50 

ЧМАХ= 21 DYM= 0.30 RY= 1.00 

NMAX= 19 DX= 0.100E400 XST= 1.00 RE= 0.100E+06 
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N= 1 X=1.20 ЕХСЕ=0.004243 CF=0.004243 DISP=0.003331 UE=1.063 YMAX=6.000 15.6 a) The truncation error analysis for (15.17) is carried out by expanding 
N= 2 X=1.30 EXCF=0.004022 CF=0.004021 DISP=0.003423 UE=1.091 YMAX=6.051 every term on the RHS as a Taylor series about y;. The first equation in (15.17) 
N= 3 X=1.40 EXCF=0.003828 CF=0.003824 DISP=0.003515 UE=1.119 YMAX=6.204 yields, 

N= 4 X=1.50 EXCF=0.003656 CF=0.003649 DISP=0.003603 UE=1.145 YMAX=6.359 
Ou Ay? Ay? 
N= 5 X=1.60 EXCF=0.003502 CF=0.003493 DISP=0.003686 UE—1.170 YMAX=6.505 — = Uy + ry— 3 +17,(ry — 1)——u,4 + O(H). (1) 
Due PU S9 A 2403 
N= 6 X=1.70 ЕХСЕ=0.003364 CF=0.003353 DISP=0.003766 UE—1.193 ҮМАХ--6.644 
N= 7 X=1.80 EXCF=0.003238 CF=0.003226 DISP=0.003842 UE=1.216 YMAX=6.776 Thus, the approximation for ди/ду is second-order accurate. 
N= 8 X=1.90 EXCF=0.003123 CF=0.003111 DISP=0.003915 UE=1.239 YMAX=6.903 
N= 9 X=2.00 EXCF=0.003018 CF=0.003005 DISP=0.003985 UE=1.260 YMAX=7.025 b) The same analysis for the second equation of (15.17) gives, 
N=10 X=2.10 EXCF=0.002922 CF=0.002908 DISP=0.004053 UE=1.281 YMAX=7.142 Q^u 2 A Ay? Ay? 
N=11 Х--2.20 EXCF=0.002832 CF=0.002819 DISP=0.004119 UE=1.301 YMAX=7.255 52 — Ay? и — uyAy + 2 Чуу — 6 ч,3 
у (1--ғу) Ау 
N=12 Х--2.30 ЕХСЕ--0.002750 СЕ--0.002736 DISP=0.004182 UE=1.320 YMAX=7.364 Ay е Ду? , Ay? 
М--13 Х--2.40 EXCF=0.002673 CF=0.002659 DISP—0.004243 UE=1.339 YMAX=7.470 + 24 и А + — + Ду Uy + "ya Чуу + Ty 6 и,3 
r 
N=14 X=2.50 EXCF=0.002601 СЕ--0.002587 DISP=0.004303 UE=1.357 YMAX=7.572 2 (2) 
4 
N=15 X—2.60 EXCF=0.002534 СЕ--0.002520 DISP=0.004361 UE=1.375 YMAX=7.672 P Ay ia t lx Ed 
y 
N=16 Х--2.70 ЕХСЕ--0.002471 СЕ--0.002457 DISP=0.004417 UE=1.392 YMAX=7.768 244 Ty 
N=17 Х--2.80 ЕХСЕ--0.002412 СЕ--0.002398 DISP 0.004472 UE=1.409 YMAX=7.862 (ry — 1) 4 Ge + 1)Ay? О 
= — — ' 
N=18 Х=2.90 ЕХСЕ=0.002356 CF=0.002342 DISP=0.004526 UE=1.426 YMAX=7.954 Uyy T 3 y Чуз zn 12 у4 + OU) 
N=19 X=3.00 ЕХСЕ--0.002303 СЕ--0.002290 DISP=0.004578 UE=1.442 YMAX=8.043 
Thus the expression for д?и/ду? is only first-order accurate, but it becomes 
RMS= 0.478E-02 I ст 
: second-order accurate when ry = 1+O(Ay) i.e. when the spacing is close to 
Non uniform mesh | 
uniform. 
FALKNER-SKAN SOLUTION, BETA= 0.50 
ПОЕНЕ жада айт ыы айы с) Now, consider the approximation, 
NMAX= 19 DX= 0.100E+00 XST= 1.00 RE= 0.100Е--06 8 
+ paia, u 2 
N= 1 X=1.20 EXCF=0.004243 СЕ--0.004243 DISP=0.003333 UE=1.063 YMAX=7.289 2 cz Cups ы эн (3) 
N= 2 X=1.30 EXCF=0.004022 CF—0.004021 DISP=0.003425 UE—1.091 YMAX=7.340 Oy (1 + ry)Ay 
N= 3 X—1.40 ЕХСЕ=0.003828 CF=0.003822 DISP=0.003519 UE=1.119 YMAX=7.493 A truncation error analysis of (3) gives, 
N= 4 X=1.50 EXCF=0.003656 CF=0.003645 DISP=0.003608 UE=1.145 YMAX=7.649 
Ou Ду (r? +1) Ay? 
N= 5 X=1.60 EXCF=0.003502 CF=0.003486 DISP—O0.003694 UE—1.170 ҰМАХ--7.799 Sarea Сы = 1 ES hb ROME — d О Н 4 
8 = uy + (ry ) 2 Чуу 1 6 u3 + 
N= 6 X=1.70 EXCF=0.003364 CF=0.003344 DISP=0.003776 UE=1.193 YMAX=7.941 у ry + 
N= 7 X=1.80 EXCF=0.003238 CF=0.003216 DISP=0.003854 UE=1.216 YMAX=8.078 Thus the approximation is only first-order accurate. Using (3), for a near 
N= 8 X=1.90 EXCF=0.003123 CF=0.003099 DISP=0.003929 UE=1.239 YMAX=8.209 uniform grid (i.e. Ty =1+O(Ay), second-order accuracy is obtained. 
N= 9 X=2.00 EXCF=0.003018 CF=0.002993 DISP=0.004002 UE=1.260 YMAX=8.333 
N=10 X=2.10 EXCF=0.002922 CF=0.002895 DISP=0.004071 UE=1.281 YMAX=8.453 d) Expanding the terms of (3) as a Taylor series about a point mid way 
. : Ay 
N=11 Х--2.20 ЕХСЕ--0.002832 СЕ--0.002805 DISP=0.004138 UE=1.301 YMAX=8.569 between (7 E 1) and (J F 1) 1.e. at y+ 2 (ry zi 1) B1V€S, 
N=12 X=2.30 EXCF 0.002750 CF=0.002721 DISP=0.004204 UE=1.320 YMAX=8.680 8 1 
u 
N=13 X=2.40 EXCF=0.002673 CF=0.002643 DISP=0.004267 UE=1.339 YMAX=8.789 Ay Nn S 
a 
N=14 X=2.50 EXCF=0.002601 CF=0.002571 DISP=0.004328 UE=1.357 YMAX=8.894 у (1+т„)Ау 
2 3 
N=15 X=2.60 EXCF=0.002534 CF=0.002503 DISP=0.004388 UE=1.375 YMAX=8.997 ne € Try )Ayu jc Ee +ту J Ду ú (с + ry ) Ау us 
y yy y 
N=16 X=2.70 EXCF=0.002471 СЕ=0.002440 DISP=0.004446 UE=1.392 YMAX=9.096 2 2 2 2 6 (5) 
1+7 1+ry\2 Ay? 1+ry\3 Ay? 
N=17 X=2.80 EXCF=0.002412 CF=0.002381 DISP=0.004502 UE=1.409 YMAX=9.192 pee ( t) Ayu ( y)? Y a ( E) LET З 
di y yy 
М--18 X=2.90 ЕХСЕ--0.002356 CF=0.002325 DISP—0.004557 UE=1.426 ҰМАХ--9.286 2 2 2 2 б 7% 
N=19 X=3.00 ЕХСЕ--0.002303 CF=0.002272 DISP=0.004611 UE=1.442 YMAX=9.378 r3 +1) Ay? 
& uy шш us + O(H) 
RMS= 0.671E-02 y гу+1 6 y 
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Now, we see that the approximation given by (3) is second-order accurate. 
It appears that second-order accuracy may be achieved for the convective terms 
by suitably centering the velocity differences, eg., mid way between (j-1) and 
(j+1). For (15.5) as a whole it may be possible to find an intermediate point 
where truncation error contribution from (иди/ду) and д?и/ду? cancel. 


15.7 Starting from (15.27) and (15.28) and substituting for the various terms 
from (15.25) and (15.26), we have after noting that for a flat plate du, /dz =0, 








0.5 б n+l u” 1 ШЕМ n+l v? 
mae tuj u, = uji | + Ay +v; T5 Uj-1 (1) 
—0, 
TAC oti tupt +u +u ) (ау рш = шў - uka) 
1 
16Ay (5 oti + vit, du qu. 4) (ен + ut Tue uta) (2) 


0.5 
^ Ay (73 xU S I e 2x) Жы 


0.5(т; n+1 + ret) = = 0.5(u; п+1 + (ит — utr Ay. (3) 


To render these equations suitable for Newton's method, we replace the 
“n+1” terms in the coefficients of the above equations by “k”, and simplify, to 
get 











Ат Az 
5n а k+1 k+1\ _ n n 
Au + Аи АУ = Avi i) = ы? (ә; + Ur) 5 (4) 
0.2507. 0.5У, k+1 0.25U. 0.5V, k+1 
| Az C Ay Já | Az Ду E 


where 
U.eug xut. and V,— v^ E vt Бо? + о" 
с J 2-1 J 1—1 с 2 3-1 J Уан Ы 


Thus if ў=1 denotes the wall and 7 = JM denotes the outer edge of the 
computational domain one has to solve the following equations. 


Au =0, (7) 
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Дь“! =0, (8) 
Aut = Fi Avs? = 2Fiv; ; (9) 
In (9) the continuity equation has been written as if it were a boundary condi- 
tion. 
For 3 =2.3 Avice ,J M — 1, we have, 


AL + 2 ADR = ET —7? 1). (10) 


Дикі + Р Лий 
la il. тарта ыты ar: 


Е, Лик + Е, Autti + 0.5A77*! + 0.5Arft) = RHS of (6), (11) 
Au®fi + Дик — Б Дь + Р Доў = 2/544 +p) - (12) 
At ; = JM, we have 


2 
Б, Ли + Р Ли – — Атуу + 2 Arit 


| Ду Ду (13) 

= ду“ 7М IM) 

— F Лик + F, Аи +0. SATE 4 0.5Лт , (14) 

= RHS of (6) for; = ЈМ, 

Au^, e; (15) 
where 

Fi -- —2Az[ Ay, 

Р, = (.25U¿/ Az) — (.5%%/ Ду), 

F3 = (.25U¿/Az)+ (.5%%/ Ау), 

Е, = (0.5/Ay)(v + vj 1). 
These equations are written in the matrix form as 

BEI DE, (16) 

AjWEN + BW Y асуы = Dj, (17) 

Aj Wii + By Wii = Dim | (18) 
where , 

W = (AuF", Дк, Artt} and (19) 
and typically, 

F, 0 2/Ay Е; 0 -2/Ау 
А4)-4 F 0 05 ),В;-%-%Е 0 0.5 j 
0 0 0 1 A 0 
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0 0 0 4(r® — r? )/Ay 
C;=40 0 0 and D; = RHS of (6) | (20) 
1 — F 0 —2F\(v? v2) 


Тһезе equations are solved using any block triagonal solver (e.g., the one 
described in Sect. 6.2.5) for corrections at the iteration level К. 


15.8 Оп replacing the term 


0.5(и? + и?) (шү — uj)/Ax in (15.101) by 


0.5(ш; + u5) (и?! — u?)/Az , 


n4-1 n+l n+l 
j (ujpa Cuji) аз 


gr. — и? 1) + ө (и? Тү — u$) s= v; (uj, => и? 1) 


and hnearising v 


one gets 


(u$ + uj) (up? = uj) 


Az | к, к k+1 k k k кү, ЕЁ k 
+ oA e (и == usa) + v; (usu, = u5.1) = 0} (иту ЕЕ u5. 1) 
Ax Az 2 
k k+1 k n т n 
= 0.555 (ult = 20; +) ES T (up, = 2u; ғары) 
- 0. 
This formula is rearranged to give 
dS + b? e dili + abt! = d 
where, 
Ат Ax Ат 
RR AT y AT k on к, AT 
а; а У, b; и; +ир+ 2427 
Ат Ат Ат 
k — k k __ k 
Cj — 0 519 = 05-2 2 5 1 om ud u$. 1) I 
2 
Ax s: 
and dj = ETE QM + и?_\) + и; (иў ын = Ат/ Ау?) 
Ах, к, k k пүт 
+ 0.5 Pi (иы = uia) — (шы — 07-1) 
Writing the continuity equation (15.100) as an algorithm we have 
РЕЛ ТТ Т (3) 
= J J 2-1 2-1 2-1 2-1 JC 


J Ar 


15.9 To execute the Davis coupled scheme (Sect. 15.2.3) for boundary layer 
flow past a flat plate it is necessary to modify program LAMBL in the following 
way. First the values of UB , V B and Y Z given in Problem 15.3 are substituted 
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for lines 6 to 13. The coefficients B and the extra coefficients are determined by 
the following code which replaces lines 66 tp 78. А new subroutine, COUPLED, 
replaces the call to BANFAC and BANSOL and the subsequent calculation of 
v, i.e. lines 79 to 100, are replaced with the following code, 


Modifications to LAMBL for Problem 15.9 


C PR15P9. 
C 
555 CONTINUE 

KCT = KCT + 1 
DO 7 J = 2,JMAX 
DY = Y(J) - Y(J-1) 
DXY=DX/DY 
DEL=DX/DY/DY 
IF(J .EQ. JMAX)GOTO 69 


С 
B(1,J) = -0.5xDXY*VK(J) - DEL 
B(3,J) = 0O.5xDXY*VK(J) - DEL 
B(2,J) = ОС + UK(J) + 2.*DEL 
B(4,J) = 0.5*DXY* (UK (J+1) -UK(J-1)) 
RHS(J) = DEL * (U(J41) + U(J-1) -2.*U(J)) 
1 + U(J) *UCJ) "КОКС -0.5*DXY*V CJ) * (U(J*1)-U(J-1)) 
2 + 0.5*DXY*VK (J) * (UK (J+1)-UK(J-1)) + 2.0*DX*UEH*UEX 
C 


69 T(J) = -V(J) + V(J-1) + DYX *(U(J) + U(J-1)) 
S(J)= 1.0/DXY 


7 CONTINUE 
RHS(JMAP) = RHS(JMAP) - B(3,JMAP)*UE 
B(3,JMAP) = 0. 

B(1,2) = 0. 
С 
C SOLVE COUPLED BANDED SYSTEM OF EQUATIONS 
C 
CALL COUPLED(JMAX,B,T,S,RHS,UP, VP) 
C 


SUMV=0. 
DO 88 J=2,JMAX 

88 SUMV=SUMV + (VP(J)-VK(J))**2 
RMSV = SQRT(SUMV/ МАХ) 
IF(RMSV .LT. TOLV) GO TO 89 
IF(KCT .GT. KCMAX)GOTO 89 
DO 87 J=2,JMAX 
VK(J) = VP(J) 
UK(J) UP(J) 


210 СТЕР Solutions Manual: Chapter 15 


87 CONTINUE 


GO TO 555 
89 CONTINUE 
SUM = 0. 
DO 889 J=1, ЈМАХ 
U(J) = UP(J) 
V(J) = VP(J) 
UK(J) = U(J) 
VK(J) = V(J) 


IF(J .EQ. 1)G0TO 889 
SUM = SUM + (1. - 0.5*(U(J-1) *U(J2)) /UE) *CYCJ) -YCJ-21)) 


889 CONTINUE 


Subroutine COUPLED(JMAX,BB,TT,S,D,U,V) 

DIMENSION BB(4,65) ,TT(65) ,S(65) ,U(65) ,V(65) 

1 ,A(65),B(65) ,C(65) ,D(65) ,G(65) ,E(65) ,SE(65) ,GG(65) 
IMPLICIT DOUBLE PRECISION (А-Н,0-2) 


Е(ЈМАХ) =0.0 
GG(JMAX)20.0 
SECJMAX) 20.0 
JM=JMAX -1 


DO 5 J=2,JM 
A(J)=BB(1,J) 
B(J)=BB(2,J) 
C(J)=BB(3,J) 
5 G(J)=BB(4,J) 
DO 10 J = JM ,2,-1 
FACT = C(J)*GG(J+1) + G(J) 
T = B(J) + C(J)*E(J+1) - S(J)*FACT 
Е(Ј)= -(A(J) -S(J)*FACT)/T 
GG(J)=-FACT/T 
10 SE(J)= (D(J) -FACT*TT(J) - C(J)*SE(J41))/T 
DO 20 2-2,2МАХ 
IF(J .EQ. JMAX)GOTO 20 
U(J)= E(J)*U(J-1) + GG(J)*V(J-1) + SE(J) 
V(J) =V(J-1) - S(J)*(U(J-1)+U(J)) + ТТ(Ј) 
RETURN 
END 


20 


Typical results for the Davis coupled scheme and the original LAMBL scheme 
are shown in the tables. It is apparent that both the schemes are producing 
accurate results for су and the displacement thickness, 6”. 


Results for Davis coupled scheme 
FLAT PLATE (DAVIS) SOLUTION, ВЕТА- 0.00 


ІМАХ,КСМАХ- 
NMAX = 20 DX= 


N= 1 Х=1.05 EXCF= 
N= 2 X=1.10 EXCF= 
N= 3 Хт1.15 ЕХСҒ- 
N= 4 X=1.20 EXCF= 
N= 5 Хш1.25 EXCF= 
N= 6 X=1.30 EXCF= 
N= 7 X=1.35 EXCF— 
N= 8 X=1.40 EXCF= 
N= 9 X=1.45 EXCF— 
N= 10 Х--1.50 EXCF= 
N= 11 Х--1.55 EXCF= 
N= 12 X=1.60 ЕХСЕ- 
N= 13 X=1.65 EXCF= 
N= 14 X=1.70 EXCF= 
N= 15 Xz1.75 EXCF= 
N= 16 X=1.80 EXCF-— 
N= 17 Хш1.85 EXCF= 
N= 18 X=1.90 EXCF-— 
N= 19 X=1.85 EXCF= 
N= 20 X=2.00 ЕХСЕ- 
RMS= 0.758E-03 


2110 DYM= 


0,002049 
‚002001 
„001958 


„001916 


0 

0 

0 

0.001878 
0.001841 
0.001807 
0.001774 
0.001743 
0.001714 
0.001686 
0.001660 
0.001634 
0.001610 
0.001587 
0.001565 
0.001543 
0.001523 
0.001503 


0.001485 


0.40 


0.500Е-01 XST= 


CF= 
СЕ= 
СЕ= 
СЕ= 
СЕ= 
СЕ= 
CF= 
СЕ- 
CF= 
CF= 
СЕ= 
СЕ= 


Results for LAMBL scheme 


FLAT PLATE (LAMBL) SOLUTION, BETA= 0.00 


ЈМАХ= 21 DYM= 0 
NMAX= 20 DX= 

N= 1 X=1.05 ЕХСЕ= 
N= 2 X=1.10 EXCF= 
N= 3 X=1.15 EXCF— 
N= 4 Х=1.20 EXCF= 
N= 5 X=1.25 EXCF= 
N= 6 X=1.30 EXCF= 
N= 7 X=1.35 EXCF= 
N= 8 X=1.40 EXCF— 
N= 9 X—1.45 EXCF= 
N= 10 X=1.50 EXCF= 
N= 11 X=1.55 ЕХСЕ= 
N= 12 Xz1.60 EXCF= 
N= 13 X=1.65 EXCF= 
N= 14 X=1.70 EXCF= 
N= 15 X=1.75 EXCF= 
N= 16 X=1.80 EXCF= 


.40 


0.002049 
0.002002 
0.001958 
0.001917 
0.001878 
0.001842 
0.001807 
0.001775 
0.001744 
0.001714 
0.001686 
0.001660 
0.001635 
0.001610 
0.001587 
0.001565 


RY= 
0.500E-01 XST= 


1.00 


СҒш 
СЕ= 
СЕ= 
СЕ= 
СЕ= 
СЕ= 
СЕ= 
CF= 
СЕ = 
СЕ = 
СЕ = 
СЕ = 
СЕ = 
СЕ = 
СЕ = 
СЕ = 


RY= 


0.002059 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0.001689 
0 
0 
9 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0. 
0 
о 
0 
0 


0 

0 

0 
0.001638 
0. 

0. 

0. 


.002001 
.001962 
001918 
‚001881 
-001844 
-001810 
.001777 
.001746 


.001717 


‚001663 
‚0016837 
.001613 
.001580 
.001568 
.001546 
-001526 
-001506 
-001487 


-002050 
.002007 


.001963 


.001920 


001881 


.001845 
.001810 
.001778 
.001747 


.001718 
.001690 


001664 


001614 
001591 
001568 
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EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS-— 
EXDIS= 
EXDIS= 


0.95 RE= 0.100E+06 


EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EX DIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 
EXDIS= 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0.006773 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ә o o o o o o о © б O б O O O ° 


1.00 RE= 0.100E+06 


005575 
.005706 
.005834 
.005959 
.00608 2 
.006203 


.006321 


.006437 
.006551 


-006663 


-006881 
-006988 
.007093 
.007196 
.007298 
.007309 
.007498 
.007596 


.007693 


.005573 
.005705 
.005833 
‚005958 
„006081 
-006202 
-006320 
„006436 
„006550 
006662 
‚0086772 
.006880 
-006987 


007092 
007195 
007297 


1.00 TOLV= 0.100Е-05 


DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 


DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 
DISP= 


о o o о oo e FF O O о O обо обо 0 


„005590 
‚005723 
‚005849 
.005975 
.006097 
006216 
006334 


006449 


.006562 


.006673 
-006783 
.006890 
006996 
.007100 
.007203 
007304 
007404 
007501 
007598 


007693 


„005591 
„005720 
„005846 
005970 
006092 
0086213 
006331 


006445 


.006557 
.006668 
.006777 
.006885 
.006991 
.007095 
.007197 
.007298 
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N= 17 X=1.85 EXCF= 0.001544 CF= 0.001547 EXDIS= 0.007398 DISP= 0.007398 
N= 18 X=1.90 EXCF= 0.001523 CF= 0.001527 EXDIS= 0.007497 DISP= 0.007496 
N= 19 X=1.95 EXCF= 0.001504 CF= 0.001507 EXDIS= 0.007595 DISP= 0.007592 
N= 20 Х--2.00 EXCF= 0.001485 CF= 0.001488 EXDIS= 0.007692 DISP= 0.007687 
RMS= 0.895E-03 


15.10 The cy and 6* distributions obtained on running program DOROD for 
the cases indicated are shown in Figs. 1 and 2. When JMAX =11 or 21 a 
good agrement with the experimental results is apparent. With JMAX=6 too 
few points across the boundary layer leads to inaccurate results. The parameter 
settings for these runs were: NMAX—500, XO — 0.938, ХМАХ- 3.81, DXCH- 
0.2, RATCH- 0.01, DX= 0.001, DXMI- 0.001, DXMA- 0.01, BETA= 0.6. 








— [3-- JMAX=6 
" --/%-- JMAX=11 
= — Q-- JMAX=21 
Р I n experiment 
2 


1 
1 2 3 — xL 4 


Fig.1. су distribution with a non-uniform улат. 
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3 
Z 
2 Z 
7 2 ЕТ жі 
uU» H CA x 
ЕФ ` 
A @ ` 
ТОЎ 
КЖ --44-- JMAX=6 
! HAE — A-- JMAX=11 
ж” 
— Q-- JMAX-21 
experiment 
0 
1 2 3 x/L 4 


Fig. 2. 6* distribution with a non-uniform ymaz. 


15.11 On running program DOROD for the cases indicated, it is observed 
that: 

1. the number of stations required to cover a given length of the geometry 
decreases with increasing RATCH, as shown in the following table. Here NS 
denotes the number of stations required to cover the distance from x=0.94 to 
x--3.9. 


RATCH NS 


0.01 407 
0.02 196 
0.05 74 


2. The су апа 6% values computed at xz 3.0 for various values of ЕАТСН 
are given below. 


RATCH с) б* 
0.01 0.00162 0.0239 
0.02 0.00161 0.0239 


0.05 0.00159 0.0237 
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Thus the predictions of Су and 6* values are equally accurate for lower 
values of RAT'C H like 0.01 and 0.02. The number of stations required to cover 
a given length in the flow direction is seen to be a strong function of RATCH 
which for reasons of economy should be as high as possible. 


15.12 The modification to the program consists of printing out the values of 
u* and y* from subroutine TURVS. 





30 
О computation 
и" {һеогу 
20 — — theory 


10 





0 
10° 10' 10° + 10° 


Fig.1. Velocity profile in wall - coordinates. 


The velocity profile in wall coordinates i.e., ut vs yt (yt is plotted on a 
logarthmic scale) computed with 21 points across the boundary layer, is shown 
in Fig. 1. Also shown in the figure is the universal curve, which is given by 


ut = у, for y* «590. 
1 

ut =—Inyt + 5.1 for y* > 50.0, 
K 


and & = 0.41. 

The agreement between the computed and the theoretical curves is good 
up to a yt ғ 400. Strictly the second relation above is valid only upto yt = 
400, beyond which the following expression 1s to be used. 


Ue — U 





Бк» In + A(1 — соѕ(ту/6)). 
K 


Ur 


Where ue is the velocity at the boundary layer edge, и is the mean velocity, ó 
is the boundary layer thickness and A is a constant depending on the pressure, 


pe( z). 
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15.13 With the use of one-dimensional quadratic elements, the form of (15.62) 
is unchanged. However the matrices, ССъ;, ЕЕ; апа ААк; become alternating 
tridiagonal and pentadiagonal, as is СССу;, іп (15.66). Subroutine FEP AR 
must be modified, either to evaluate СС, EF and AA via algebraic expressions 
involving Du etc., or they must be evaluated numerically. Subroutine ABC D 
has to be changed so that CCC; is evaluated with the proper alternating 
tridiagonal / pentadiagonal system without further modification. The rest of 
program DOROD is directly applicable without alteration. 


15.14 The су and 6% distributions obtained on running program DOROD 
for this case are shown in Figs. 1 and 2. Good agreement is seen between 
the present predictions and the experimental results due to Wieghardt and 
Tillmann. The parameter settings for this run were: NMAX —300, IMAX =11, 
XO = 0.187, ХМАХ- 5.01, DXCH- 0.2, RATCH- 0.02, DX= 0.001, DXMI= 
0.001, DXMA- 0.1, ВЕТА- 0.6. 


6 
5 
© 
© 
e: L] present 
x 4 | { 
p experimen 





x (m) 
Fig. 1. су distribution for turbulent flow over a flat plate. 
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Fig. 2. 6* distribution for turbulent flow over a flat plate. 


15.15 As the first step, we write (15.85) and (15.86) as 


OF OF OF др, др, Р 
us + о “(az + (1 — Ci) ) и (1) 








where F = (и, w)?, Cy = (1, 0). 


a) Crank-Nicolson scheme 
For the Crank-Nicolson scheme (Fig. 15.23a) the x,y,z derivatives are cen- 
tred at n+1/2 ,3, k — 1/2 respectively. Thus (1) is written as 








OF n41/2 OF n+1 OF.n 
(и uj (v ду ге И р (w 27) алуа (2) 
Ope Ope 4n41 8? F п+1 
= [c Әт +(1-C,) д> |, tra) 
Writing 
OF n41/2 : И Frtl _ pn ц" В В 
(u=) as 0.5(и% +и та. == aE HLF ), (3) 
апа linearising 
OF n+] n OF n+l n+1 дЕ т n OF n 
0%) (ye a yon OF) a) 
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and applying the Crank-Nicolson scheme, we get 














и? ч К 1, OP аы 1, OF л OF. n41 

4: [E = jk) t "Ar Е: 3° By) ih T (ш) 4-1/2 (5) 
1 Ove Opes waa: АЛТ ] 20^ FP uu 

E pi дт PUEDE +57597) y 2” aye) | 


Now writing (w (8F/80z))7,- 1/2 86 DP k—1/2 (8F/0z);, = ia s We have after 


rearranging, 





Uk 1 š 1 0.5v ған 
(n + P pa + Ww шын; T Ay? j,k 


0.5v” 0.5v А 
+ ( ht “ЕРА, 








2 Ау 24y? 
—0.5v? 0.5v 
һЕ prt (6) 
«( Ду Ns j-Lk 
= Uk _ 0. 5v e elk = FP Е lis T Wr k-1 ars 
© Ат 2 Ду 2 Az bes 








sp BOE ge ED) 


др, 
«zn A rls Ci). m Ay ju 2B 


b) Krause-zig-zag scheme 

The derivation of the tridiagonal equation for the Krause zig-zag scheme 
follows the same lines as before. But now, following (4), we have, 
(w(8F/82)) 1 ^ instead of (w(8F/02))7,. ү, and (w(OF/0z rs P? is given 
by (15.88). 

Consequently, the tridiagonal equation 1s 


чь, шь, Озу onpi PER 
(зы д; A 3» +( 2Ay  dAy? J P 


4 —0.507 k Е 0.5v prt 
2Ay 2Ду? J 271% 

















Fn р" 
СЗ e JT lk j—1,k (7) 
Аг 0. би: Ё 2Ay 
РДЕ ik Cp +Е + FRE) 
Әр. Opein41 бб, „ 
Me à; Кш Ел ШУЛ Peak ~ Epe Fia): 
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Fig.1. Geometry of the test case. 


15.16 The geometry of the test case 1s given in Fig. 1. 

The physical dimensions are as follows: zy = 45.7cm, a = 6.1 cm. The free 
stream velocity , U..=30.5 m/s. The algorithm to compute this flow has been 
derived in Problem 15.15 and the procedure to implement it is as follows. 

1. Generate a grid, which can be uniform in z and y directions. In the x-direction 
the grid may be uniform or adaptive as in Problem 15.4. 

2. Starting from the leading edge of the plate we march in the x direction. At 
every x station, we sweep first in the y direction and then in the z direction. 
3. In performing the sweeps (6) of Problem 15.15 is used. The algorithm has the 
pressure gradient terms on the right hand side. These are to be evaluated from 
the equations given for U, and W, in the problem definition and the Bernoulli 
equation. 

4. The boundary conditions are : 

у= Ü. q = Ü) = w: = w; 

Y = утах › U =U, and wW,, 

2 = 0, Zmaz : velocity given by flat plate boundary layer solution. 

x = 0, flat plate boundary layer solution. 

5. The marching procedure is carried out until axial separation of the flow is 
encountered. It is expected that this will happen upstream of the cylinder, at 
у--0. The corresponding axial location provides the downstream limit of the 
boundary layer calculation. 

6. Advantage can be taken of the fact that flow is symmetrical about the centre 
line on the z- axis. On this line w = 0 апа, (Op/Oz) = 0, and these give rise 
to a singularity in the z-momentum equation. One way to arrive at a non- 
singular equation is to differentiate the z-momentum equation. This aspect is 
fully discussed by Cebeci (1975). 
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161 The first step is to nondimensionalise the equations as for (16.1) to 
(16.4). The continuity equation cannot be simplified further, which implies v is 
O(6/L). All terms on the left-hand side of the z-momentum equation are O(1). 
On the right-hand side, 


2 3 2 ae 6 TRE 
x is О ($) ; x and wi are O ($) : EY is O(1). 
e дт 


Thus the z-momentum equation becomes, 
O = x: 
ULL tem + — = ——(wuv'). 
E oo v) 


On the left-hand side of the y-momentum equation the convection terms are 


O(6/ L). On the right-hand side, 
1 v., 6\ 19%. АЗ Oe, б 
IO А 2-92 90(2). 53," " is O Т, А 
апа So is O(1). 
ду 


This implies that Әр/ Әу is O(1). 


However close to the surface, the normal stress, —pv'v’, is suppressed so that 
дот" [ду is O(6/ L). Consequently all terms of size O(6/ L) and bigger are re- 
tained. Thus the y-momentum equation becomes, 
Ov Ov Op " Q ET 
ШЕР ш СЕ Ш Oy — on L 
16.2 Retention of all terms in the continuity equation implies v is O(6/L). In 
the z-momentum equation v? Kz; is O(6/L)? and (1/Re)0°u/Oz? is O(6/ Ly. 
These terms are discarded. The terms uvK1? and (1/ Ве)д?и/ду? are O(6/L) 


and are retained. All other terms аге 0(1). 


In the y-momentum equation, (1/ Re)0?v/Oz? is O(6/L)* and (1/ Re)0*v/Oy* 
is O(6/ LY?. These terms are discarded. The terms и? Кі; and (1/һ2)Әр/ду are 
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O(1); all other terms аге O(6/L). The reduced form is based on retaining all 
terms that аге O(6/L) or bigger. 


16.3 The term, exp(to,y), indicates oscillatory behaviour in the y direction 
with c, real. The character of the solution behaviour in the т direction is of 
primary interest. The expected behaviour of T(x) for the various cases is as 
follows. 


1) T 1s oscillatory and growing 

ii) T 1s growing with small oscillations 

ii) T' is growing slowly with large oscillations 
iv) T is growing rapidly with large oscillations 
v) T' 1s reducing rapidly with large oscillations 


Fig. 1. Behaviour of T(x). 


16.4 i) With Әр/дт = 0 in (16.1) to (16.3) the symbolic polynomial is 
т, {i(uo, + voy) + (02 + o, )/ Бе) Ep. 

This has roots 
C= ic? /(uRe) —oyv/u and – {Ве + c; [(uRe)) + oyv/u. 


Thus the solution will grow in the т direction in an oscillatory manner. This 
corresponds to the elliptic nature of the governing equations. 


п) With Op/Oxr = 0 in (16.4) to (16.6) the symbolic polynomial is 


os {ilus + voy) + o, / Ве) Esp 
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Thus о, = ic /(uRe) - су vfu. 


This produces a damped oscillatory solution in the т direction if u is positive. 
In this case the equation system is non-elliptic in the т direction. 


16.5 For (16.30) to (16.32) with an extra dissipative term, «22р/ду2, on the 
right-hand side of (16.30), symbolic analysis produces the following equation 
in place of (16.38), 





Uy _ uv , 0.9uo, 
су = (42 T a?) ap Ж a?) {y/(pRe) 23 е) 
а2 yeo? М?с? 
bea) [(М? mw 1) + (М? E D Re — 0.25 6 У {y/(pRe) xis є}? 
ve 1/2 
= 1-2 {7/(pRe) +e . 


Although a precise result is not obvious it might be concluded that a negative 
value of є will be more stabilising for subsonic flow. 


16.6 Results for program THRED for various cases are shown in the table. 


RED-FDM  RED-FEM  AF-FEM 
DX DY RMS error RMS error RMS error 


0.20 0.20 0.0090 — 0.0030 
0.05 0.20 0.0011 0.0035 = 
0.05 0.10 0.0011 — - 
0.01 020 0.0018 
0.01 0.10 0.0004 


A significant improvement in the accuracy of RED-FDM occurs in refining the 
grid to DX=0.05 . At this level, the discretisation in т controls the accuracy 
so that reducing DY to 0.10 makes no change. The relatively poor accuracy of 
RED-FEM is due to the rapid change in T close to z = 0, y = £1.0 on a coarse 
grid. The FEM scheme is sensitive to this. For DX = 0.01 and corresponding 
refinement of DY to 0.10 1s necessary to improve the accuracy. 


Based on an approximate operation count analysis, AF-FEM is about forty 
times more expensive than RED-FDM on the same grid. To achieve compa- 
rable accuracy RED-FDM is about ten times more efficient. For the present 
problem RED-FDM and RED-FEM have a similar operation count. For a three- 
dimensional duct problem it is expected that ADI-FDM would require a smaller 
operation count. 


16.7 Іп the radial momentum equation, (16.53), the convective terms are 
O(6/L) and the viscous terms are O(6/L)*. For the pressure gradient term, 
Әр /Or, to balance the convective terms it is necessary that p° is O(6/ L)?. 
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This implies that др“ /дт in the axial momentum equation is O(ó/ L)* and can 
be discarded. In contrast the term dp, ;/dz is O(1). 


16.8 Since руу is obtained from the global conservation of mass, equations 
(16.51) to (16.53) determine и, v and p°. Therefore introducing Fourier repre- 
sentations for these three variables produces the following symbolic polynomial, 


io? (uo, + (v —1/(rRe)}o, — 102 / Re) = 0, 
or о; = {1/(rRe) — о}о, [и + ic2/(Re u). 


This will produce a stable marching solution as long as u is positive. 


16.9 Тһе discrete form of (16.55) can be written 
и" Ди? Ат = (и i5. oo rj)— Арэ / Az. (1) 


Since J4 depends linearly on un+1/2, 


Ja(u5 7) = 0.5 {Ja(u?) + Ja(uZ**)} 
and datur = Ja(u;) + (8J4/0u)Au7*. 
Thus (1) becomes 
u Au TAS = Jalu; ) + 0.5(3Ja/ðu) Ди?" — Apoi /Аг 
or {и? — 0.5Az(0J4/8u)) Ди?! = Az Ja(u5) — Apr » 
which is (16.60). 


16.10 Introduction of Fourier series for u,v,w and p in (16.80) to (16.83) 
produces the following symbolic polynomial, 


(02 + о? + о?){ї(ио„ + voy + wo) + (03 + c*)/ Ве} = 0. 


The first factor produces a negative imaginary solution for c; which implies that 
the equation system is elliptic and a marching procedure will grow exponentially 
in the т direction. 


If the pressure splitting, (16.84), is exploited and a Fourier series introduced 
for p° the resulting symbolic polynomial is 


-(о? +a? ){t(uo, + voy + wo,) + (о; +02)/ Ве} = 0. 


The solution for с, comes from the second factor and has no negative imaginary 
contribution as long as u is positive. Consequently a marching procedure in the 
т direction is able to produce a stable solution. 
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16.11 For (16.97) to be true at the discrete level we require 


[н dA+Afy А = J 29/0 ds, 


where Әф/Әп is either set as a boundary condition or is obtained from the 
current solution. Thus 


Ай = 4 | [ 06/00 ds - f fa aa], 


16.12 The equation system equivalent to (16.113) to (16.119) can be written 
ди/д + Ovg/Oy + диф/Әг2 = 0, 
L*u + Op/Ox — Lu = 0, 
L'(Bvs + vy) + др/ду — L vy = 0, 
L°(Bwe + wy) + др/дг — L wy = 0, 
Ovy/Oy + Ow, /Oz = 0, 
Ovg/0z — Qu, /9z = 0, 


where Lou = udu/Or+v0u/Oy+wdu/dz апа 14и =(1/Re){0?u/dy? + 
O*u/Oz* ), etc. 


Introducing Fourier series for и, vg, vy, Wg, wy and p produces the following 
symbolic polynomial, 


(02 + 02)A' (Baz AS + (oy + 0;)4 ) = 0, 
where Л = uc, + voy + wo, and A! = A* — i(o} + о; )/ Re. 


Setting @ = 0 is equivalent to imposing (16.116). Then c, has no negative 
imaginary value as long as и is positive. However if 3 is non-zero then o; 
will have a negative imaginary component and a marching solution in the z 
direction will be unstable. 


16.13 The equivalent of (16.126) and (16.127) are 
ш = W: + 046/dz — дф/ду = 0 

and f), = OW'/0y — 0?v/Oy*. 

Discretising and substituting for Yj+1,k gives 


2455 sk = [OW /ðy]w — 20j—1/ Ау? — 2(WT (фрка Фу„к—1)/24А#}/ду. 


16.14 Introducing Fourier series for p, и and v and substituting for p gives 


p(pA — ic2/ Re) (4? — ¿Aoi /(pRe) – (у — 1)/9]A uc, — a2o;/7) = 0, 
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with A = uo, + осу. Further manipulation gives the required result. If u is 
positive the first factor does not contain a negative imaginary part. If the 
viscous term (containing Re) is neglected, the result is 


o, [oy = [(y + 1)uv + uv((y — 1) + 4y/Mz  "]/[(a? — «?), 
For у > 1, this solution is real; therefore a marching solution in the x direction 


will be stable. 


16.15 Introducing Fourier series for p, и and v produces the following sym- 
bolic polynomial after some simplification, 


p (uo. + voy)[(uor/y + ооу) {исз + voy — w[(y — 1)/yvey} 


(у = 1)/7]? uvezo, — (c2 t wo )а? [4] ep. 


After further simplification this gives the required result. If v zz 0 then the 
major factor gives 


0, = +ш!/?ю„а/(и? — а2)М7, 
Н u <a, с, wil have а negative imaginary solution and exponential growth 
in z will occur. 
16.16 Introducing Fourier series for и, v and p produces the following sym- 
bolic polynomial, 

{ис + vo, — ic; / Re) (o; + iooio, + ot} = 0. 
From the second factor, e, = (о? + 04)/(aoz). Thus exponential growth in 
time is avoided if а is positive. 


16.17 From (16.178) and (16.180) 
др 1 Ov Ov Ov 


ду Re Oy? On P? Fy 


Equation (16.181) сап be used to obtain Әр/дт and Әр/ду which are substi- 
tuted into (16.178). The result is 


RE mes OP æ) 
(5 Y x Ш а? (а Е, 


(1) 


ді ду У ду 
Substitution of др/ду from (1), and rearrangement, gives (16.84). 
16.18 Тһе physical grid used for u,v and p is indicated in Fig. 16.22. Equa- 
tion (16.191) is, in physical coordinates, 
(uj,k1/2 — Чу-1,&—1/2)/ A + (®у—1/2,к — 0j-1/2,k-1)/Ay = 0. 
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A Taylor series expansion about (j,k — 1/2) indicates that the first term is 
O( Ac) and the second term is О( Az, Ay*). The term v is defined at (j — 1/2, k) 


but Ч)ь-1/2 is evaluated as 0.5 (uj. + uj. ki). 

Equation (16.192) is, in physical coordinates, 

Uj k(Uj,k — uj-ik)/ Av + vjci2k(uj egi — uj k-1)/2Ày 

+ (рук — Pj-1)/ Az — (uj 1 — 20 + uj e ei)/(Re Ду?) = 0. 


А Taylor series expansion about (J, k) shows that the terms are O( Ar), O( Az, 
Ay?), O( Ах) and O( Ay?) respectively. 


Equation (16.193) is, in physical coordinates, 

uj k—1/2 (Vj—1/2,k-1/2 — Vj-3/2,k-1/2) / Az 

+ oUj—-1/2,k—1/2 (vj—1/2,k = Uj—1/2,k—1) / Ау 

+ (Pjk—Pjki)/Ay = 0. 

A Taylor series expansion about (7 — 1, k — 1/2) indicates that the terms are 


OC Az), O( Ax, Ду?) and O( Az, Ay?) respectively. 


16.19 From the definition of the displacement thickness, the loss of mass flow 
is given by 


ó 
йыб em / (ue — u)dy. 


However assuming an injection velocity at the surface, vj, and applying the 
continuity equation to a strip of height ó* implies 


б; dz = С + 2 ашыға -- 24 Or v; = (шы) 


For compressible flow the equivalent expression would be 


d š 
(pu); = q; (petted ). 


16.20 Subtracting (16.221) from (16.220) and integrating across the boundary 
layer gives 


ДЕЛ 
= | (Fi Е°) dy. 


Substituting F? = F: + F* — К м leads to 


[6° – 6°} 


9 f 
буо = Gyo + == / (Fio — F’) dy. 
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For the various components, 


6 
liso = уу / (оч). = (pu) ) dy 
6 
мой = тео + р Í Кош), — Ge) dy 


ó 
(E+ polo = у Í (E + puk = IKE + pu) ay. 
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17.1 Consider the square domain shown in Fig. 1. 





А В 
Fig.1. Typical domain. 


From the Stokes theorem we have 





Ja pes = f| 
--/ vde + | udy+ | vde- f udy (1) 


Now divide ABCD into four cells as shown. 
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11+ 99 tv 
= ul xs dy ff i jar dy ff jar dy Í J 1 \dx dy 


p = (2 — U1/2,1 4 заа аыл) Ag Ду 


Ду 
(за шла аай, тышсыз дй 
Ду (2) 
" (ысты сш с ade map сме) Ax Ay 
Ау 
(ssa луда ata, Lá APA 
Ay 
= 0 


= —01,1/2 AT — U3,5/2 Ат + Us /2,1 Ay + us/2 2 Ду 
+ 05/2242 + 15/2 Ar — ч1/22Ау-Ч1/24 Ау. 
Thus showing that even the discretised form of the continuity equation satisfies 
(17.4). 
17.2 The discretised form of the continuity equation (17.12), is 


n 1 т т 1 т т 
Рук sss (utis. - DTP) Сет (зер = нЕ) =й. 42 


Substituting for ШР 2 k> etc. from (17.8) and (17.10), we have 


1 - 70 v PM x S 
Руд = 20e Ar (Pink Pri) - F5 /2,k 


= rt ыр 0} 
a Ge At AG n+l _ nT) __ Gn 
jk+1/2 7 Руда 7 Pjk j,k-1/2 


UA 
к 
Ay Pik Hs ара) = 0. 


Simplifying (2), 
n+l 
Pj+1,k — 2p;k t Pj-1,k 4 Pieri 7 2p;k t Djk-i 
Az? Ay? 


u 1 Fj+1/2,k = Еу) -1/2,5 i Gj k41/2 = G ji k-1/2 ^ 
(OAM Ar Ay | 





as required. 
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In order to derive (17.14), we have to substitute for the terms on the right- 
hand side of (3) from (17.9 and 17.11). For example, the leading terms in each 
expression give 

Юк = (и7ў-1/2‚,® Е u$ 1 /2,k)/ Az T (Vi k+1/2 is vi k-1/2/ AY . 
After additional manipulation we get 
Пт, 1 


At Re Re! 





ЕН Sis) == dod Гу) Оу, — Lic uj p= Lu v? 


jk 2Ligy (uu); k ; 


as required. 


17.3 Substituting for pı 2 — po,2 from (17.19) into (17.18), we have 


—pi,2 + p22 4 pi, — 2р1,2 зз ш 


Ax? 4%? 
= Fija, _ 17572 a ES F32,2 ш Еу + GT 5/2 ¿g GY 3/2 
E Ат A At Ат Ау 
= P3723 Е изә Сү 5/2 - СТ зу 
i Az At Ay At i 


which is independent of Fy... The argument following (17.18) and (17.19) is 
thus confirmed. 


17.4 If uis set equal to a constant, scheme (17.31) will be 


(poe Т u о > 

ты се ж без шта 
Substituting for Tj-1/2 and Tj41/2 from (17.32 and 17.33), 

и n и Га = Таса 

aa re sa eg tT (2) 


— (Т; — 8Tj-1 + 37; — Tj), 


Ve 
so that scheme (1) now becomes, 
I eq u 
c Шау” 
At + 2 Ат (Tj41 — J 1) + (3) 
q n о т 
3A; (Ti-2 —3Ту-1 +37; — Tja) - Gog Tit — 2T; + Tj-1) -0. 
Scheme (9.71) is given by (written here as a two-level explicit scheme) 
Tov Tm 
21 + (uif? - oL, НТ (4) 


Substituting for LC? from (9.72), we find that schemes (3) and (9.71) are equiv- 
alent. 
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17.5 First, we will show that (17.40) follows from (17.39). This can be done 
by replacing the u* and v* terms іп the equation for RH S B from the CPSM 
form of (17.23). Writing the equation for uf , we have from (17.23) 


ui k = su у: + At у(2) р Te 


Ӧр n+1 
__ uy 
+ At(5- J. j a) 


М»+1 
ansa (Y 657 na) š 


Similarly 
М-ы 
ж (1) 
UN +1,k = UN +14 + At У; GN. iD s (2) 
i=1 
Ny+1 
jl Ба = о? + At > сү, ж , (3) 
Ny+1 
* n+1 1 
ViN +1 = UPN, +1 + At > Gh % һРіт. (4) 
ті--1 


Substituting (1), (2), (3) and (4) into the equation following (17.39) we obtain 
the equation for RH SP in the form (17.40). Following a similar procedure one 
can show that (17.43) and (17.44) follow from (17.41) and (17.42). 


17.6 The Jacobians A and B in (17.48) are defined as, 


G 91 р 
А ВЕ. where q = | 92 = | и , 
Ë: Ë 43 (А 
Ё, а?и С, azu 
E Е, = u2 + p and G = Сә = uv ‚ 
Е, Uv G3 v^ +p 
OF OF, {Әф ӘРЕ, [дә OF, ддз 0 a? 0 
А = Ba = OF, [д9 OF [Әдә OF, /Әдз = 1 2u 0 А 
4 дЕ;/дау ӘР,/Әр ƏF,/Əqs 0 v u 


as required. The expression for B is similarly derived. 


Substituting for various terms it can easily be shown that 
F—Aq-uDq, G=Bq-vDq. 
For example, Fy = 1-p+2u-u+0-v—u-l-u=u’ +p. 
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17.7 The term бр in (17.27) is equivalent to óp in (17.77) and to —¢/At in 
(17.61). In both (17.27) and in the SIMPLE algorithm, др is evaluated as an 
adjustment to the momentum equation such that continuity will be satisfied. 
However ф is calculated directly to satisfy continuity and used to adjust the 
pressure field such that the momentum equation is approximately satisfied. 

17.8 а) The expressions for a}, and ай, may be derived as follows. Starting 
from (17.68) and substituting for the terms I k; p ~1/2,k > Gus and 


iw from the relations prior to (17.69), we have 


Ay [025(uj. F uj41i,k)- sc іл ue 


Бе Ar 
1 u;í—u- 
ЖОО door ue ERN 


T ле} о. 25(u;k + ®у+1, k)(uj,k + uj, k+1) — 

l u;rb—uir. 
-0.25(ә;-і + vjgask-i) (uj, + ujk=1) + NEN. 
+ Ду(рў{ — рў.) = 0. 


Expanding some of the terms and linearising terms like (u*)"*! as и" u"t? we 
obtain (17.69) with the following expressions 








аўь арт Өш + 0.25 Ду(и;фі к — Чу-1,&) 
+ 0.25 Az(—vjk-i— 0-1) + > Ç = +=) ; 
aj 1g = 0.25 Ay(uj ik d Ujk) ту | 
Qj lk = —0.25 Ду(иў ik + и%) = xu 
аўк+1 = 0.25 Ду(ю;к + vj k41) — Ea | 
аўь—1 = 0.25 Ay(vjk-1 + vjk) — ша 
б“ = -FA и? 


b) Expressions for a5 , and af, іп (17.77) аге derived as follows. 
Introducing the velocity correction, u$ ,, in the form 


и = шўр tujk (1) 
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and substituting the above equation in (17.67) we have, 


* c * | с 
Ay (uj, T+ujk Uj-1,k — иі к) 
* C * с Е 
+ Az(vj, bi, — Ue — aa) = 0. 


From (17.75) we have, 


с 


Uik = 9 (рзд — 6p;41,k) (3) 


and as a consequence (2) becomes 


Ayd d 7) (pje = 6pj414) — (ФУ), OPA = 5p4)] 


4 
+ As] dips = êp; e+) — OY ipi — pia) u) 


= — Ly (U5 к Es и 1р) = Дт(07 k - оў k1) › 
which сап be written as (17.77) with 


а? , = Ду(4 5) + dC), „) + Ard + d] 1) 


Qj+1,k = Дуа; ji Qj—1i,k = Дуа ш 


а: k+1 = Ата? аук-і = Ard) 1 


and bP = (из р = Use) Ау - (vi U; k T 05-1) âT 
To show that (17.77) is а discrete Poisson equation, consider (4) divided by 


ArAy . Let 42, = 49 = k/Az and dU] , = dU) = k/Ay . Then (4) 


reduces to 


— k(Óp;+1,k = 26P;,k = bp;—1,n)/Ar* 
— К(брук+1 — 28рук + брук-1)/ Ду (6) 
=: —(ujk = u$ 14 )/ Ат d (әҙ. B vj k1)/ Ау 


The LHS of (6) is a discretised form of 
д? д? 
-k {z (pik) + этр) | (7) 


This shows that (17.77) 18 a discretised form of the Poisson equation. 


17.9 Application of the three-point upwind formula (9.53) to discretise the 
convective terms of (17.2) 15 as follows. We have (assuming q = 1.5 and а 
positive u-velocity) 
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АА РТА 1 
b (uy = и? к) + 2 (и2 4, - 4u5 ik + Зи) Ау 
1 
+ ;((и®)ук-2 — 4(uv)j;-i + 3(uv) л) Дз 
Ay (1) 
"среда — 2uj,k + uj-i,k) 
Ax 


i ReAy (uj ki — 2uj + uj k—1) + (Pj+1,k — Pik) ây = 0. 


Аз a consequence (17.69) changes to 


Ал Ау ee de 
( At — "n аңьйав raj. НЫ tkt aj р ous EL 2 (2) 





The expressions for а? ,, ач, will now be different from those derived in Problem 
17.8. In addition, the terms, а? , and a},_» will need to be evaluated using 


и? ә, and vj, 2 if the same implicit algorithm is to be used . Thus they 
should be combined with Б". Also if uj ог vj, are negative contributions will 
be obtained from nodes (j+2,k) and (j,k+2). 


17.10 Equation (17.98) is given by 

Ә(и " - 

200 ы LEOTE а-а (uo SE 

+ 0.5.Ат(1 =й 2и )L zs (UC). ç 

At steady state (иб)?! = (uÇ)? p , ete. 
Hence 

auc "VET 

аб), а а) + 0и) 
+ 0.5АтГ,.(ч6)% = Атр, Г.:(17)?, 


= р Аз Liu); k + Lz (uÇ); k 
+ 0.5Ат1,.(и0)%; = Атр: зис), 


1 
AS O- Oaa 





toau a — uT To 


0.5 
SOS СТЕ “Ора 


which is a three-point centred difference scheme. 


17.11 The first-order boundary condition for the vorticity equation is derived 
as follows (with reference to Fig. 17.12). For the Poisson equation for the stream 
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function, the boundary condition on AD is ў = 0 and for the vorticity equation 
it is Ow /Oy = g . In Fig. 17.12, gap = 1. 


Carrying out a Taylor series expansion of the stream function about a grid 
point (j,k) on AD ae 

inca = Фук Avo), + (SE), + O) 

jk-1 jk 44У Oy i ду? ik (1) 


2 
= vin Дус + ау (ді) + OD. 


From (17.92), we have 


Since on АР, № = 0, we have O^ /0y? = С. 
Accordingly (1) reduces to 


A 2 
Vik-i1-—0-— Дуд + (O 


2 
ог (= Ayr Ui + Дуд) + O(H). 


The corresponding second-order boundary condition is derived as follows. 


As suggested in the text, discretising the equation 020/0у? = ( gives 


Pi k—-1 — 20; + Yj kt 


Ay? -O(H). (4) 


Gk = 


But to use this equation one needs №; 441 which corresponds to a point outside 
the computational domain. It 1s possible to eliminate this term through the 
formula дук = (Ov/Oy);, . Employing a third-order accurate expression for 
(Ow /Oy), we have 

gj = (99/0); , = (Vik — бфук-1 + Зфук 205441)/6Ay + О(Н). 


Thus, 


69; Ау- Yik 60; ру — 901 
Ujk41 = 5 URL KK UE Pink 2: Piki Pink +О(Н). (5) 


Substituting (5) in (4) the expression for the second-order boundary condition, 
i.e. (17.107) in the text, is obtained. 


17.12 Consider Fig. 1. For a linear interpolation we have, 


in elements A and D: 


фу = 0511-8), Фу =0.8(1+€) and €=2%e-a,_4)/Az. 
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k+1 
ry Ay С 
k 
k—1 
j-1 Ax j ry АХ іі 


Fig.1. Linear elements. 


In elements B and C: 


(P = 0.5(1— 6), eU —05(1-£) and 6-2(:- 2,44) / (r2 Az). 


For a non-uniform grid (Appendix A.2, Vol. 1), the directional mass oper- 
ator 1s 


2 
Ша (1--”,) Ат < J в peat 








Thus, 
2 Дт 2 1 
___ 2 [Ат ә r Az fl =e | 
Ма a 3 КЕЗЕ = 5 [osa £) dE 
Е 2 (1 +r,;) 
~ (L+rz) 3 
2 АҒАНЫ Е 2 Tr 
Ма = mna = |. пке шал €" 


The directional first difference operator is 


"T" (z) ( (е) 
І. = ЕТЕУ 2. / (de? /ах)ат 


Thus, 
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2 š 2 0.5 
In = Tepes |, 0 OR ES C) - 





2 ! 1 

La = {теат |]., 280 out f 0280- ut] = 
2 2 0.5 

bes aras | 080 + OMe = AS (де). 


The directional second difference operator is 


Ps a= то 2 [ч /d«) - (dó; ^ /dz)d 
Thus, 


240 2 f 2 1 
bass жшк vr cnt 
Po (1--ғ,) Ат Ат t Оез (1+7) (хз) 





Ат 
таа) 


ИЮ A [ 0254 + Ç [0.25 a¢ 
2 (1+r,)Az "E ЖАСАР ЖАН 





-2 AME S 2 1 
лл Ж Ке теле ж 
Loss (l+tr,)Ar r,Az L с. (l+r,) (=) 


and similarly for M,, Ly апа Lyy. 


17.13 Introduction of the three-level time discretisation into (17.114) may be 
carried out as Sects. 8.3.2 and 9.5.1. As a result we get 


QUEPA – yAC" 
M, o M, Pee 


= B RHS"" (1-0) RHS" , 


(1) 


where 


1 
RHS =H- | M, © Las + Me @ Lys bo My @ Laud — M, @ Lys I (2) 
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We find that the only term to be linearised in (1) is RHS'' .Now performing 
a Taylor series expansion of RH S"*! (which is a function of С, и and v) we 
have 


RHS"*! = RHS” 


a - j ORHS Au^! @RHS Av"! (3) 
RHS-- а apes cue = 
ШЕЕ tea ду 19 д с 
Substituting (3) in (1), and simplifying we have 
2 a 
1 + >)[M, @ M, — RHS)|Ac"t! = 
At RHS™? + s & M, yAC" , 
where 
1 
"BL 3M @ Lee + МӘТ 
RHS x y ® + М; Q 2 (5) 


- M, Q L,C(u* + 8Au"*!) — M, Q L,C(v" 4-BAv"*). 


To demonstrate that (17.120) and (17.121) are consistent with (17.119), sub- 
stitute for AC* in (17.120) from (17.121) and multiply the terms on the LHS. 
We see that the RHS of the resulting equation and of (17.120) are the same. 
But the LHS of the equation has the form: 


B. xad 1 А 
LAS (7. 119) + At? колт + = (jibes = Leu) (gzl = L,v)AC +1 i 


This demonstrates that the (17.120) and (17.121) are consistent with (17.119) 
to O( At^). 


17.14 To apply the one-dimensional Galerkin formulation to (17.91), the in- 
terpolating functions given by (5.70) are used. The procedure follows closely 
(5.69 to 5.82), and is not repeated here. 


A Taylor series analysis of (17.125) is carried out as follows. 


The equation (17.125) given by 


Муч = Lyv, i.e. on a uniform grid, (1) 
1 2 1 Qj k+1 0-1 
620-1 RE r + giri = ты ыы JAy ) : (2) 
Expanding the terms as а Taylor series about (7, k), and simplifying, we have 
BE Ду? Ау! 
u — фу = 938776 Чуу 7 79 uy + OUT) . (3) 


Substituting for ~,3 from (17.95) (i.e. u = vy), we have 
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4 


Ay 
= Цуй + O(H) 4 


u— py = 


thus showing that the discretisation in (17.125) is fourth-order accurate. 


On a non-uniform grid with урфу — Yk = ry(yk — Ye-1) it can be shown that the 
leading term in the truncation error is — (ry — 1) Дуи, and hence the scheme 
reduces to a first-order accurate one. 


17.15 The expression for g(u) on the surface FE in Fig. 17.14 is derived fol- 
lowing the steps from (8.59) to (8.64). The equation corresponding to (8.59) is 
given by 


ПИТТ 


Further, m is now non-zero only on the surface FE, thus, 


| [^55 ғаз dy = [ [4m l, pde- | [om ағ ay (2) 


In (2), the relation и = 0/Oy has been used. 


Following the derivation of (8.62), one obtains the equivalent of (8.64) which is 
(17.127) with (и) = чре/ Ду coming from the evaluation of the line integral 
on the right-hand side of (2). 


17.16 The Poisson equation for the Bernoulli variable Н can be derived as 
follows. Using an equivalent procedure to that in Problem 11.2, the т and y 
momentum equations become 


а 
ðr Ot Re ду 

OH — Ov 1 Oç 
ДЫ ор 2 (-9 xx) 


so that, with the introduction of (17.1), 


OH PH alut) _ (vC) 
9:2 + =2( ду =), 





as required. 


17.17 Ап approximate factorisation algorithm based on (17.141) is developed 
as follows. Introducing a three-level fully implicit time discretisation in (17.141), 
we have, 


[01 + yatt — yA?) 


2 + 8(ЕН5)"+! +(1—8)ЕН5" =0, (1) 


where 
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д ди 
RES = ws (G5) + EUG) + 5: (0) - бэ GS 


2 (к, G а Ст 9-6, 
© Re^ дт? ду? Oz? ^7 


(2) 











The above equation is obtained from (17.141) by combining the two x deriva- 
tives in u and ¢,. Linearising the term (RH S)"*! as 

(RHS)" + (ORHS/0¢,)ACz, and following the procedure adopted in deriving 
(17.119), gives 


SES ae Гу, 
a3) - At fu vase OB: 


» p» (3) 


— | —— Lees п+1 __ п а 
ЕТЕ + ду? + 2) AG At(RHS)" + улс? . 


Now carrying out ап approximate factorisation of (3), leads to 





BAt 1 . At ajo, Ce 
i- PE (ule з) |А = T Tae 4) 
At 1 жж ж 
п 09 - gel) ace = А, " 
bAt m ET n+l __ жж 


We see that L, operates on AC? on the LHS of (4) and not on (uA¢*). 


17.18 We shall derive here only the first of the (17.151). The others are ob- 
tained in a similar manner. 


Consider 
du ðw 2 2% ди 
“= 2; Or! "5 Ox ду 


so that 
u Ou OC, 96, дш 07% 


д? Ж Oy? д: Oy дтд2 и діду ` 





From the continuity equation this becomes 


ш д?и _ Wy O, д (Z): 
дг? 7002 T 0: ду дт 


Hence, 


Qu иы u Е Hy Е O6; 


0270527523 195 gy 


as required. 
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181 а) Conventional Reynolds averaging, for the continuity equation, is car- 
ried out as follows. 


Let p=ptp,u=ttu,v=d+0'. (1) 
Substituting these expressions into the continuity equation we have 


Op Op О 
P -L [ра + pul + ap! + plu’ 


a” a! Oe (2) 
О scum eux pasu ka 
+ — [pv + ро + vp + р'о'| =0. 
ду 
Now taking the time average of the terms and noting that, p' = 0 etc., we get 
лн Pa кы ee 


as required. 


b) Mass-weighted Reynolds averaging, for the continuity equation, is car- 
ried out as follows (see 18.1): 


Letu=ti+tu’,v=t+v",p=pt+p' andti=pu/p etc. (4) 
Ав a result the continuity equation becomes, 
Op Әр ð 2500 _ H Fx ін 
de egent +a n) 
д 
Д 3; US + pv" + p'ü + p'o") = 05 
y 
Now pù + p't + p'u” + pu" = pù + p'ù + pu". 
Carrying out the time averaging the above expression reduces to 
pü + ри". Further, ри" = 0, (see 18.1) 
ü 


Hence,  pü + p'ü + p'u! + pu" = pü апа 
JU 


po + pid + p'u” + pv" = ро. (6) 
Substituting (3) in (2) and noting that p' = 0, we have 
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Әр 
ді 


as required. 


8, 0, 
T9 27 00) ш 


18.2 The z-momentum equation for a two-dimensional, incompressible, vis- 
cous flow is given by 


Ou Ou Op дт 
pluz іст сент (1) 


where т is the shear stress. 


For a ‘Couette model’, Qu/Ox = 0 and v=0. Close to a solid surface, (1) thus 
reduces to, 


Or др 


(2) 


ду Ox 


Integrating (2) and imposing the boundary condition that at y = 0, т = Tw, 
we have 


r-r = у, (3) 


as required. 
Derivation of (18.178): 
For a turbulent flow, т = p(v + v,)(Ou/Oy), so that (3) becomes, 


Ou Op 
plv + irm — Tw = осу. (4) 
Since v, >> v, we have 
Qu Op 
per Oy =e hig е Әх” š (Š) 


Introducing the mixing length representation, v. -(ку)2|(ди/ду)|, 


1/2 
so that Va = (5. + А) / o? (6) 


as required. 
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Derivation of (18.23): 
If Op/Ox = 0, (6) becomes 


T = VTw/p = ur, (7) 


where u, is the friction velocity = /Tw/p . 


Equation (7) can be written as 


or du" -----. (8) 
Integrating (8), we have 
1 
и" = — In +С, (9) 
which is (18.23). 


Discretised form of (18.178): 


Assume that the computational grid close to the wall is as shown in the figure. 





Fig.1. Grid points close to the wall. 


For this grid, (18.178) may be discretised as follows. 
ey, [mm] |, (at) 4 2 „| Jor. (10) 
e 2Ay n Ay Ox 
The velocity at a point close to the wall 1.е., 2, can be computed from, 


U2 2 ,9P 11 
ш A, = Lsu) (220%. (11) 
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where иј =0 has been substituted. However a consideration of the case др/дх = 
0 implies that (11) will not be very accurate. 


18.3 Derivation of (18.29): 


Following the order of magnitude analysis carried out in Sect. 16.1.1, we have 
и яз O(1), v zz O(6/L) , Әч/Әт ғә О(1), ди/ду = О(1/6), Ov/Ox c O(ó6/ L) , 
Qv/Oy = О(1). Accordingly, 


RHS = £-[0(1)] + 5-[0(6/L)] + 5-100] + 5-(0(6/L) 


| 
Әт 
д 1 1 a (1) 





S OD) 2 [иб — р) + Hol - 


Hence retaining all terms О(1,/6) or bigger, we have 


д 1 1 ди 
RHS = 51 E == р ЕЛ ит (1 = P=), T4 


If P, and Р„„ are each assumed equal to 1, RH S = 0, and (18.26) reduces to 
(18.29). 





18.4 The thin layer equations are derived as follows. In (18.7), the viscous 
terms and heat transfer terms іп Ғ are neglected, so that 


pu 
poo pt pue 
ри? 


(E + р)и 
аѕ іп (18.32). 


The array С has, as its viscous contribution, terms involving Try and Ty, which 
are given by (18.9). Now neglecting the x-derivatives in (18.9), we have, 


rey = (UMD) Ss rw = S(u + ET 
zy = Mr HT ду? уу — 4H PT) By р , 


thus giving (18.32) i.e. the thin layer equations. 


18.5 Тһе truncation error analysis of the explicit MacCormack scheme (18.35 
and 18.36) is carried out as follows. The terms, q"*!,q*, F*, G*, S* are ex- 
pressed as a Taylor series about 9", 4", F", С", S" respectively. On substituting 
these expressions into (18.36) one gets, 
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At? Ar 
q + quM + ди 7 cq, 76 
At At? AD 
s: © cal 2 impr T қ 


Ав 
Ci Ch Асы ХАК аа Жолан 
y 








1) 
p = At? At? ( 
^ FPF + F + F, At Е, — 2 + Fa ұта m 
AtA Ағ At? 
ды сыш EECA G кз 
2 (6 - 
‚ 2t At? At 
S s» s» Sat S - ub ir d 
With simplification, 
Ағ 
+ F, + G, -5- —— (Fur + Guy) 
қ (2) 
= АҚҚ Ат + с.Ау)- s = m O(H), 
where the relation qu = - Р. — Су + 5, has been made use of. Equa- 


tion (2) clearly shows that the leading term in the truncation error is of 


ОСД АҒА А! Ду). 


18.6 The explicit MacCormack scheme applied to (18.49) is given by (18.50) 
and (18.51). It 1s easily seen that the amplification factor G* for (18.50) 15 given 
by 





С" = 1-a (cos0 +i sin —1) +202 (cos8 — 1). (1) 


Now expanding terms in (18.51), we have 


T ME — 0.5 (q7 + 4; — ад q; aes pAtlrrq;’ =) | (2) 


so that the amplification factor С for the overall scheme is given by 
t At 
G = 0.5 + 0.5 1 — z sin EZ) + (cos — 02 (28 - Ac). 
1- isin) + (cos 8 - 2 (5 ЕЛЕР 


and required stability condition is 


At 


2- A n +aAz) < 
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18.7 When the scheme (18.43) is written in a predictor corrector format for 
(18.6), the following formulation is obtained, 


* At * * 
djk = Gk — a (Gk B Gx) 


At 
and 43% == 0.5(97 к + 4 к) = о A | P= G^ 1). 


18.8 For the Wambecq scheme (18.47), with с=1 and b=— 0.5, we get 
Au! = Atu һи“, 
Au? = Atu L, z(u" + Aul) , (1) 
Au? = Atu L,,(1.5u" — 0.5u*) ; 


But Аи"! = (2 Ди! (Aut, Au?) — Aw (Aul, Au! ))/( Av, Au?) . 


Given that (Aut, Au?) = nAu! Au? etc, so that the above equation becomes, 
on simplification, 


An ades (Au!) P Atu(Lee и")? (2) 
Ad — LQ(15u^ — 0.5u*) ' 


as required. 


Implementation of the Wambecq scheme: 


Equation (18.47) on which the Wambecq scheme is implemented, is identical to 
the diffusion equation studied in Chapter 7. Program DIFEX is easily modified 
to do this. See the following listing of the program which implements the true 
Wambecq scheme and the one given by (18.180). On running the program the 
following solution errors are computed, at t = 9 secs. In the table, TWS denotes 
True Wambecq Scheme (with b=—0.5, c=1), PRESENT denotes the scheme 


given by (18.180). 


Ax TWS PRESENT 


0.2 0.03472 0.0644 
0.1 0.02069 0.00907 
0.05 0.007543 0.00384 


To check the stability of the two schemes, the programs were run for times up 
to t = 90 sec. for various values of s(a At/Az^ or uA /Az*). The computed 
solution errors are given below. 


8 TWS PRESENT 


0.5 0.00093 0.001128 
10 0.1627 0.9188 
2.0 1.194 3.462 
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Thus, we find that though the schemes are stable for values of s = 1.0, 2.0 etc. 
the solution error increases sharply. For best results smaller values of s(< 0.5) 


should be chosen. This type of restriction is similar to that for the DuFort- С 
Frankel scheme (Sect. 7.1.2). The following code replaces lines 1 to 112 of С 
program DIFEX. С 


Modifications to DIFEX for Problem 18.8 


PR18P8. 

THIS PROGRAM SOLVES THE DIFFUSION 1D TRANSIENT 
HEAT CONDUCTION EQUATION USING WAMBECQ SCHEME. 
NWAM=1, TRUE WAMBECQ SCHEME (18.47) USED. 
NWAM-0, MODIFIED WAMBECQ SCHEME (18.180) USED. 


Cà G CY G € С 


DIMENSION TN(41) ,DUM(41) ,TD(41) , X(41) , TE(41) , TOL(41) , C 
1 DT1(41),DT2(41) , DT3(41) C 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 


OPEN (1,FILE=’PR188.DAT’ ) 

OPEN (6, FILE-'PR188.0UT?) 

READ(1,*) JMAX ,MAXEX ,NMAX, ALPH,S , TMAX 

READ(1,*)B,C,NWAM С 


РІ = 3.1415927 

МАР = ШАХ - 1 С 
АЛМ = ОМАР 

DELX = 1./AJM 

DELT = DELX*DELX*S/ALPH 


IF(NWAM .EQ. 1) THEN C 
WRITE(6,*)'APPLICATION OF TRUE WAMBECQ SCHEME C 
1 TO DIFFUSION EQUATION' 
ELSE 
WRITE(6,*)'APPLICATION OF MODIFIED WAMBECQ SCHEME 
1 TO DIFFUSION EQUATION' 
ENDIF 
WRITE(6,5) JMAX ,MAXEX , NMAX , TMAX 
5 FORMAT(? JMAX=’,1I5,’ MAXEX-/,I5,? NMAX=’,15, x 
19 TMAX=',F5.2) C 
WRITE(6,6)S,ALPH,DELT,DELX,B,C 
6 FORMAT(? S=’,F5.3,’ ALPH = ’,E10.3,’ DELT = ’,E10.3, 
19 DELX = ’,E10.3,’ B= ’,F5.2,’ C= ›,Е5.3,//) С 


DO 8 J = 2,JMAP 
TN(J) = 0.0 
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8 CONTINUE 
9 CONTINUE 


SET BOUNDARY CONDITIONS 


TOL(1) = 1. 

TOL(JMAX) = 1. 

TN(1) = 1. 

TN(JMAX) = 1. 

DUM(1) = 1. 

DUM(JMAX) = 1. 

TD(1) = 100.*TN(1) 
TD(JMAX) = 100.*TN(JMAX) 
N = 0 


EACH TIME STEP STARTS AT STATEMENT 10 


10 N = N +1 


DO 200 J=2,JMAP 


200 DT1(J)=S*(TN(J-1)-2.*TN(J)+TN(J+1)) 


IF(NWAM .Е0. 1) THEN 
TRUE WAMBECQ SCHEME. 
DO 201 J=2,JMAP 


201 DUM(J)=TN(J)+C*DT1 (J) 


DO 202 Ј=2,ЈМАР 


202 DT2(J)=S*(DUM(J-1)-2.*DUM(J)+DUM(J+1)) 


DO 203 J=2,JMAP 


203 DT3(J)=(1.-B)*DT1(J)+B*DT2(J) 


WEIGHTING FACTORS. 


WHT13=0.0 

WHT11=0.0 

WHT33=0 .0 

DO 204 J=2,JMAP 
WHT13=WHT13 + DT1(J)*DT3(J) 
WHT11=WHT11 + DT1(J)*DT1(J) 


204 WHT33=WHT33 + DT3(J)*DT3(J) 


DO 210 J=2,JMAP 


210 TN(J)STN(J)4* (2.*DT1(J)*WHT13 - DT3(J)*WHT11)/WHT33 


MODIFED WAMBECQ SCHEME. 
ELSE 

DO 220 Jz2,JMAP 
DUM(J)*TN(J) *DT1(J) 


247 
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220 DUM(J)=1.5*TN(J)-0.5*DUM(J) 
С 
DO 221 J=2,JMAP 
221 DT2(J)=(DUM(J-1)-2.*DUM(J)+DUM(J+1))/(DELX*DELX) 
С 
DO 222 1-2,1МАР 
IF (DT2(J) .NE.0.0) 
1TN(J)=TN(J)+DT1(J) *DT1(J) /DT2(J) /DELT/ALPH 
222 CONTINUE 
ENDIF 
DO 19 J = 2,JMAP 
19 TD(J) = 100.*TN(J) 
T = T + DELT 


IF MAXIMUM TIME OR MAXIMUM NUMBER OF TIME-STEPS 
EXCEEDED EXIT FROM LOOP 


aan С» 


IF(N .GE. NMAX)GOTO 21 
IF(T .LT. TMAX)GOTO 10 
C 
C OBTAIN EXACT SOLUTION AND COMPARE 


18.9 Equations (18.53) and (18.54) can be rewritten as 


ж ж,е At ж,1 ж, 
Ав; m Ағ; + AZ (Ағы = Aq; ), (1) 
Agtthi = Agtthe At дет _ Aghtht 

4; == 244; + ET 45-1 7 44; ). (2) 


Expanding the implicit terms оп the RHS аз a Taylor series, we have 


ке At . OAq** д? Ла?" Az? | 
A к,1 - A куе == A * 2 "EE ж, 
Фёда А.АРАт Aq 


ла Ае 2 
qj + гт 2 Әд T 














Clearly, the term 0.5AAt? Ат(0%4/Әт2Ә4У is of third order in time, since Ат 
can always be expressed in terms of At through a relation like Ax = aAt/C. 


Similarly, 


; О? АА? Ar 93 
п+1, __ же __ 204 q 
Bug eg ТЕНЕ 29. t ^ (4) 


Now qr -- 0.5(чў + а" | Age) 


= 0.5(q7 +q + Aq?" + Aq?) (5) 


= 0.5(q? + gj + Дд") + О(АР). 


1 
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This shows that the implicit terms act as third order perturbations to the 
explicit ones. 


18.10 Тһе amplification factor G** for (18.53) is given by 





At ж, __ At M AZ 
(1+ 2—)(6 1) = —a— (cos 6 1 isin6) ia 
At At + o ж, __ 
+ 2н-—у (0058 — 1) + А77 (cos 8 + isin8)(G 1). 
е, 
С = [© + (cos (QE — a2) —+зїйө( + а)} 
At Ат (2) 
Ат бегі 
AF — A(cos8 — 1) - sine). 
Similarly for (18.54) we have, 
At,,2G С —1 At E 
м Uer == -а--(1 шы 
2G — G** — 1 
+ (cos 8 — 1)G + А (cos — isin 6) (225—2) 
Simplifying (3), we find 
A C 
— үшү 4 
G osi ($) e (4) 
where, 
Ат ди 
A= -3 %(св0-1)(2:-4-Х)-4А<а)віп0, 
Ат 
_ Ах ея 
В ET A(cos 6 1) 1A 5118, 
арт 2и AD 22 . 
C =O + (сов0 — 1) (- -а- 2) (5 + а) әп, 
р = 52 — A(cos0 — 1) + sin. 


Given the complexity of the expression for С it is preferable to either use а 
symbolic algebra computer program or to evaluate G numerically. This can be 
carried out by assigning a range of values to a, 2u/Az and Az/At. For each 
combination a range of values of А is chosen such that À > a+2p/Ax — Az / At. 
For every combination @ is chosen such that 0 < 0 < 2л and |G] is evaluated. 
If |G| < 1.0 then (18.55) is confirmed. 


18.11 The predictor stage of the implicit MacCormack scheme for the Navier- 
Stokes equations is given by (18.58) which is implemented as 
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(L- At LA") Agii = Aq] (1) 
and (I- At ГВ") Д = Аа. (2) 
When expanded, (1) is given by 
ж, At At ж,е 
Aq e Ar —— A+, йа | К m Ат — Am Аа = Aq; i (3) 


which reduces to (18.65) in the text. 
Similarly, (2) can be implemented as 


At **,1 At m **,1 
(I+ Дугі RAG; z k — = Аа); к + Ay 44 (4) 


which is (18.67) in the text. 


Let the RHS of (4) = W, so that 
At m жж, 
AB )Aq;; = W. (5) 
From (18.62), B = (T?)-!D?T*, 
so that (5) becomes 


(1+ 21(т2)-1р8т?) ла = W . 


(I+ 


Multiplying both sides by Т? and simplifying, 


| At 
B жж,1 By _ B 
T Aq; k (1+ AP )2 ЖТ, 


T? Дат = (1+ — 


жж,? Byv- 
А9; ; = E^) шығап 
as required. 


18.12 The transport equation (9.81) is given by 
OT OT OT OT д?у 


v 


p Өг a 9252 995092005 (1) 


The Beam and Warming algorithm is applied to this equation іп the following 
manner. Writing (1) as 


OT 


3 = ЁН5. (2) 


Applying the generalised three-level scheme (Sect. 8.2.3), 
(1+ a)AT"*? олт" = At(8- RHS"*! + (1— 8)RH S" ). (3) 
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Now, linearising RH S"*1, which is a function of Tz, Ty, Trz апа Туу, we have 


RHS"" = RHS" — us 2 (AT)! - v5 (ary 











Р - (4) 
— n+1 ae ot n+1 
To a2 (AT) + e, By? (AT ye 
Substituting (4) in (3), and simplifying we have 
bât, д д д? д? ing 
iid и See T" 
DE – (ч Az + v Ora —@у 5,7) A Е 
Ж 
= —— RHS" + —— АТ" 
1 + 1 
Carrying out the approximate factorisation, 
BAt , д a? At 
д “т Al — 5 — AT" 
«EE. а: 22) 1-ға о TIG (8) 
and 
bât, д д? i 
LT —ay,— >) AT"? = T 
{14+ FE (os cy) AT (7) 


It may be seen that (6) and (7) are equivalent to (18.78) and (18.79) with 

g Asun Р 0 ы 0, R =a ete. 

Starting from (9.88) and (9.89) the above equations are obtained when M; = 
(0,1,0) and МУ = (0,1,0) and y = o. 

18.13 The approximate factorisation algorithm for (18.84) can be derived as 
follows. 


The given equation in semi-discrete form 1s 


да 
M. ® Мут + M, @ L,F! + M, Q L,G! a) 


= M, Q L,,R4L,9 L,S + M, Q LT. 


А three-level algorithm to advance the solution in time is introduced as in the 
previous problem. With the usual linearisation one gets, 


F 8G! 
RHS"' = RHS” + | M, 6L, - M, & LS 
| Ё 2 (2) 
OR ӘТ д5 
rr A М; Ec A HE Le D A T 


As usual the cross-derivative term (L, 9 L,(0S/0q)) is evaluated explicity i.e. 
at time level n. 


As a consequence the algorithm is , 
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BAt oR OT 
M,- (Моби + Mr @ Ly — 


— M, Q L,A — M, Q L,B) ы (3) 


o МА page 4 Lo 1,08 4 M; 8 M, 


Aq" 
l+a l+a да pha ^ ae 


where A = (OF! /0q) , B = (OG! /Əq). 
Carrying out the approximation on (3), (18.85) and (18.86) are obtained. 


This may be verified by substituting for Aq* from (18.86) in (18.85) when we 
obtain 


м, zm А (в = ҺАУ 
1+ е Од 


8 OT 


bu, - oat (oy SE Ë 


EF — ыз) Дд"! = RHS іп (18.85). 


Expanding the left-hand side of (4), we have 


LHS of (4) = LHS of (3) + 


BA y (Les OR 


| OR OT 
l+a Əq 


= І.А) уе 


–І,В) Аҹ". 





The extra terms іп (3) аге a consequence of approximate factorisation. 


18.14 The given equation is 
L,AAq;U — Ly (А? Ад?!) + ІЛ (Ат Д?!) (1) 


Expanding each of the terms as a Taylor series, we have 
4 


Ar? Az 
(Aa); + (Aq), —5— + (AQ ” 


6 
A Да? 
(А+е + A7), + (А-а — А+а) „5 + (Ааа Адас 


(2) 





x 


Clearly 0.5(A7 q — A*q);. Az is the additional dissipative term introduced on 
the RHS. Thus for unsteady problems it is important to ensure that this term 
is small. 


18.15 From (18.110) we have 


0 
с 1 ÜrTrr + уТ7ту | (1) 
ReJ Naley + Ny Туу 
п: RA + Ny 94 
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Each term in (1) is considered separately . Using the chain rule and dropping 
the £-derivatives 


д 
че һауе — = 7);u, and = Түй» (2) 


От Оу 
so that 
2 
Trz —2u(nzus) x 3107241 + Лу?) , 
2 
Туу = 2u(nyts) = 3461741 + Nyy) , 
Try = (Ny Un + mets.) , 


2 
Ел = и |2 (%:Ч;)- glia un T nyon) 


sa ОШ = k да? 
U LU —— N, 
A ud AED (r — ТР, Ox 


(3) 


2 
54 = up(nyug + vg) +Y ЕЎ E 3 stg + 170) 
" k да? 
(т — 1)Р, Oy ` 
Substituting (3) into (1), (18.116) is obtained. 


18.16 To get the components of M we have to differentiate the components 
of S with respect to 4. 

We have Š = (5, S2, S3, S, YT. 

A typical element of M, say maz = J(0S5/0pu), 

S, = (1/ Re J)[ayuy + а29|, 

where a1, @ are given by (18.121). 


- к Жы Me + | 
7129 = Ре] Ə(pu) «т 029% 
d. д (ри, — ШО (оо), — UPn 
~ Re (ри) Б ы | (1) 





1 О uc p v- 
= pRe O( pu) [o3 (о) -£ 2 J + a2 (со), - ee), 
This reduces to iA (i) 


as required. 


18.17 Тһе governing equation for transonic, viscous flow (18.80) is given in 
generalised coordinates as (see Sect. 12.3.2): 
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24 OF += 0G OR PE 928 ma. 
дє да Т 901 * | 
where q, Ё etc are given by (12.70). 
For example, 


БЕ +6 G | SR + Erys + буТ 


Ë = 
J J 


Substituting for various terms (F, G, R and S) and simplifying, we get (18.138). 
For example, 


Ё, = Мын T ё„С1 T Ezr Нг + Exy 52 + Жа 
_ 1 


766 + ри 2) F (рио) + Cz (4pneu/3) + <ту(и.9/8) X ЖО?) 


E 2m + pu(£zu + буо) + (4&/3 + Ey) ue + (Ezy/ Duv) | 


Equation (18.139) is similarly derived. 
Considering now the term R, 


GR + GGS + GT 
ED ER 


Substituting for the various terms the required expression for R is obtained. 


R= 


For example, 


- 


1 
R; = Ten + 626,52 +) 


E OUT) + €x€y(Hev/3) + T 


Equations for T and S are derived in the same manner. 


18.18 The one-dimensional transport equation with fourth-order dissipative 
terms 15 given by 


2T 
oF pu оба eg Ат = = Ox: (1) 
Applying the general two-level scheme to (1), we have 
AT" 
At 





= 8 RHS"* 4+ (1— B)RHS" . (2) 


With centred differences the above algorithm for (1) reduces to, 
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TP+ [1 + 28s--68egAz* At] — 8[- S (Туа — Tj-1)+ 
(Ту. + Tj-1) = €gAz* At(Tj—2 — 4Tj-1 — 47341 + Tj 42) 
= T? [1+ 2(1 — 8)s + 6(1— B)egAz* At] (3) 
2-00-60 - Tj) + (Ты + Ba) 
ep Az’ АҚТ; — АТ; — 4Туъ + Ту+ә)]. 


~ 


Applying the von Neumann method, 
о} (1+ 285 + бдер Лх“ At) — B(—icsin 0 + s cos 
— eg Art At(2 cos 20 — 4 cos əу) = 
(1 + 2(1 — 0)s + 6(1 — 8)евАз^ At) 
-(1- 8) (~iesing + scos — eg Azt At(2 cos 20 — 4 cos 46) ) | 


Although an explicit expression for G is obtained it is difficult to complete the 
von Neumann stability analysis by hand. One can either use symbolic algebra 
or evaluate G numerically for a range of values of the following parameters: 
B, eg Az? At, s and 0. For stability it is necessary to ensure that —1.0 < G < 1.0. 
For specific choices it is possible to complete the analysis by hand. For example 
with s = 0 and 6 = 0 the amplification factor reduces to 


С = {14+ 8E(1— 8))/(1-- 4EB}, 
where E = eg Az? At. Requiring G > —1.0 leads to 8 < 2+0.5/Е and requiring 
G « 1.0 leads to 2 > 1/12. 
18.19 Equation (18.160) is given by 
Мау = 0.5(f; + fia) — 05[9(7)C] 41/24 fi41/2 (1) 
- 0.50[1 — Ф(т)];+1/2 АБ 1/2 


апа 


Б-у = 0.5(};-а + fi) - 059 9С); аа AFj-1/2 


2 
с 0.5о[1 = d(r)|j;-1/2 AFj—1/2 . l ) 
Substituting these expressions into (18.159), we have 
B =. uA 
pth =p" — 41050 =fj=1) 
+ {0.5(4(r)C) — 0.5о(1- o(r)) }j41/2AFi41/2 (3) 


- {0.5(4(r)C) — 0.50(1 — ó(r))) Mig - 
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Writing (3) as 


ES Е Ді 
p" = р" – 0.52 (ы - fj) + Tj+1/24fj+1/2 — Tj-1/24fj-1/2 
and expanding the last two terms as a Taylor series about ‘j’ we see that, 
A Az AL 
pex = p” — EE (Ға = jj) +T, fx At Àz + T fez + О(Н). 


Thus (18.159) along with (18.160) is equivalent to the use of centred differences 
with a second-order dissipation term. 


Substituting (18.162) into (18.161) we have 


ДЕСТЕ 
At 
Же ( + fj+1) — 0.5|u;+i/2][1 — Ф(т')]у+1/2 Ару+1/2 
n+1 (4) 
— 0.5(fj-1 + fj) + 0.5|u;-i/2111 — ШЕРТЕР | 
At " 
=” —(1- 021 ) 
1.€. 
At 
тн + SUUS — fji) - 0.5|шу+1уо|[1 — Өт) 21/2 2052372 
n+l 
оз — Ф(® игру) (5) 


=o" - 021 5 


Now expanding the terms |ч;1/2|,1- $(r)]j41/2, Друг, [uj—172]. 

[1 — ¢(r)];-1/2 and Ap;-1i/2 as a Taylor series about ‘j’ and simplifying it can 
be shown that (5) is also equivalent to the use of centred differences with a 
second-order dissipation term. 
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